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PREFACE 



The authors wish to express their gratitude to all those who have 
contributed to the preparation of this series of 3 technical reports: 
AFHRL-TR-74-83 CODAP: Source Program Listings 
AFHRL-TR- 74-84 CODAP: Control Card Specifications 
AFHRL-TR-74-85 CODAP: Programmer Notes 
In particular, the following people have played a vital role in the 
development of these documents; Dr. Raymond E. Chris tal. Chief of the 
Occupational Research Division of AFHRL, Mr. William Phalen, also of 
that Division » and of course the secretaries, Betty L.' Brooks and 
Laurel J. Betz, who not only typed but also helped in proofreading. 
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FOREWARD 



The Comprehensive Occupational Data Analysis Programs (CODAP) System 
has been under continuous development for the past fifteen years. In 
Its current form, It Is a joint product of the Computational Sciences 
Division and the Occupational Research Division of AFHRL* In general » 
the Occupational Research Division has developed Input-output speclfl--* 
cations for programs and program modifications, while the Computational 
Sciences Division has provided programming services. However, even 
this distinction has not always been a clear-cut one, since suggestions 
for program Improvements have come from Individuals In both Divisions • 

Since Its conception, development of the CODAP system has been under 
the general direction of Dr. Raymond E. Chrlstal, Chief of the 
Occupational Research Division. Dr. Chrlstal also personally designed 
many of the programs and program modifications. 

The earliest CODAP programs were written by Mr. Daniel Rlgney and Mr. 
Wayne E. Fisher. This version was later expanded and reprogrammed 
(under contract) for execution on an IBM 7040 by Mr. Irwin R. Oats 
and Mr. James R. Hills of the Computer Sciences Corporation and later 
of Oats-Hllls Incorporated, Houston, Texas. (Mr. Oats and Mr. Hills 
have translated CODAP programs for execution on the IBM 360 and 370 
series computers, under contract x^lth the U.S. Marine Corps and the 
Department of Defense.) 

Since 1970 all CODAP Innovations and modifications have been programmed 
in-house by the Computational Sciences Division. During this period, 
many new programs were added to the system, and nearly all old programs 
were extensively modified. During the last two years the CODAP system 
has been completely rewritten for execution on the Univac 1108. This 
reprograramlng was first undertaken by MSgt William D. Stacey, with the 
assistance of Sgt Johnny J. Weissmuller. After MSgt Stacey 's departure 
from AFHRL, the translation and reprogrammlng were completed and checked 
out by Sgt Weissmuller, assisted by AlC Bruce B. Barton. It is this 
version of the CODAP system which is documented in this technical report. 

Many individuals have contributed to the CODAP system, and it would be 
difficult to specifically enumerate each contribution. However, the 
authors would be remiss not to mention those individuals who have 
participated in the mainstream effort. It is possible, with the passing 
of time and the falling of memories, that the following history contains 
serious omissions and inaccuracies, but it is correct in terms of 
currently available information. 

The hierarchical clustering programs, OVRLAP, GROUP and KPATH, were 
initially designed by Joe H. Ward, Jr. and R. E. Chrlstal, with original 
programming by Daniel Rlgney and Wayne E. Fisher. The remainder of the 



first CODAP package was designed by R. E. Christal, with numerous 
suggestions from I. R. Oats, J. R. Hills and others. This pioneering 
effort included JOBGRP, JOBSPC, ASFACT, PRDICT, GRMBRS, PRTVAR, VARSUM, 
GRPSUM, GRPDIF, MXTPRT, TSETUP, INPSTD, VARGEN, EXTRCT, and JOBINV. 
The programming for these was accomplished by I. R. Oats, J. R. Hills 
and D. W. Hartmann. 

The table below lists the programs developed after the initial package: 



Program 

SETCHK 

PROGEN 

TSKNDX 

AVALUE 

DIST2X 

CORREG 

AUTOJT 
PRIJOB 

DUVARS 
REXALL 

AVGPCT 
JDINDX 
JOBIND 
TSKGRP 

DIAGRM 



Initial Design 

W. L. Wells 

Edward L. Adams 

R. E. Christal 

R. E. Christal 

C. R. Rogers 

Joe H. Ward Jr. 
Robert A. Bottenberg 

William Phalen 

William Phalen 
R. E. Christcl 

William Phalen 

William Phalen 
Johnny J. Weissmuller 
R. E. Christal 

William Phalen 

Johnny J. Weissmuller 

R. E. Christal 

Harry Lawrence 
Johnny J. Weissmuller 

William Phalen 
R. E. Christal 
Philip Aitken-Cade 



Initial Programming 

Edward L. Adams 

Edward L. Adams 

William D. Stacey 

William D. Stacey 

Johnny J. Weissmuller 

Janice Buchhorn 
Kathleen Hall 
William D. Stacey 

Paul Aron 

Computer Sciences 
Corporation 

William D. Stacey 

Johnny J. Weissmuller 

Johnny J. Weissmuller 
Johnny J. Weissmuller 
Edward L. Adams 
Johnny J. Weissmuller 



Computer Sciences 
Corporation 



ERLC 



8 



Among other individuals who have olayed a meaningful part in the 
development^ Improvement and maintenance of the CODAP system, are 
the following: 



Dr. Robert A, Bottenberg 
M^*. Jim Souter 
Mr. C. R. Rogers 

Mr. J. Myer 

Joe Morsh 
Wayne Archer 

Harry Kudrick 
W. L. Wells 
Robert L. Vance 
Bill Feltner, Jr. 
Wesley C. Hill 
Steve D. Poole 
Terry D. Lewis 



Monitoring and Direction 
of Programming 



Systems and Programming 

Numerous Suggestions 
for Program Changes 

Program Execution 
and Suggestions for 
Improvements 
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INTRODUCTION 



This document contains programmer notes on the 100 library subroutines 
used m the UNIVAC 1108 version of CODAP. The philosophy behind this 
subroutine package was to isolate both machine dependence and recurrent 
CODAP processing techniques,* This should allow for a functional 
replacement of those operations on the user system. The Information 
In this report will aid programmers In deciphering the logic and control 
of CODAP coding. 

After the table of entry points, the wrlteups appear In alphabetical 
order by subroutine name* Each wrlteup Includes a summary of subroutine 
functions and a list of all entry points. For each entry point, a 
calling sequence Is provided with descriptions of the Input and output 
parameters. Comments related to conversion, special applications, or 
restrictions may be found at the end of each wrlteup under SPECIAL NOTES, 
The CODAP subroutine library Is divided Into two logical groups, those 
subroutines which are Invoked by referencing the library, and those 
which m,st be explicitly Included. The latter. are referred to as 
"subprograms". Each Is a specialized subroutine for only one main 
program. In the case of frequent change due to experimentation, some 
subroutines like RFILE (which should have been a "subprogram") were 
entered In the library. This allowed easy access to a subprogram which 
was used In a frequently changed main program (OVRLAP in the case of 
RFILE). In general, however, the convention holds. The 81 wlteups 
which follow describe only those subroutines which may be used by 
referencing the library. The remaining 19 subprograms do not have 
wrlteups, as In analyzing the main programs the purpose and calling 
sequence of each should become clear. The following is an alphabetical 




list of the subprograms not mentioned elsewhere In this document: 



SUBPROGRAM 


MAIN PROGRAM 


ALPHA 


CORREG 


APL\/rS 


VARGEN 


CORRLB 


CORREG 


CRTOTP 


CORREG 


DICTRW 


VARGEN 


DISKLD 


^rrxpRT 


Fi)TPRT 


EXTRCT 


I2FA 


DIAGRM 


OVLAP 


MTXPRT 


PLEVEL 


CORREG 


POSTAP 


CORREG 


PRIMSC 


CORREG 


PRINTR 


EXTRCT 


PRINTl 


CORREG 






START (STRT) 


DIAGRM 


TAPGEN 


CORREO 


TPTOCR 


CORREG 


ZEROST 


CORREG 



Any other entry points which are not found in the following table of 
entry points are either standard FORTRAN subroutines (like CLOSE or 
EXIT) or they are Inline subroutines which may be found at the end o : the 
main program. 

6 

ERiC XI 



ENTRY POINT TABLE 

This is a list of the entry points into the CODAP subroutine library. 
The left-hand coIuithi is an alphabetized list of the entry points ^ and 
in the right-^hand column is the name of the element in which the entry 
point may be found. 



ASGA 


ASGA 


HATP 
l/nl C» 


SUBRTN 


ASGAM 


ASGAM 


IMrtTInE 


SUBRTN 


ASGC 


ASGC 


liAl fcTn 


DATETM 


ASOQf 


ASGQI 


DEFINE 


RFILE 


ASGCMR 


ASGCM 


DELAY 


DELAY 


AUTORV 


AUTORV 


DISK 


DISK 


BCDBIN 


Ut\ 1 i\\j> V 


DISTXl 


DISTXl 


BIN 




DKSTAT 


DKSTAT 


BINBCD 


DATACV 


UKEAD 


DREAD 


BINFD 


SUBRTN 


DSKRED 


DISK 


BINOCT 


SUBRTN 




DISK 


BLANK 


BLANK 


hKlI 


ERII 


CARD 


SUBRTN 


C^ti T TV 

EKIIX 


ERII 


CHKMSK 


MSKOPl 


ERRNSG 


ROSTER 


CLOSEF 


CFHIO 


ERSMSK 


MSKOPl 


CLOSER 


RFILE 


ERTRAN 


ERTRAN 


LUnrA 


CCWPA 


FACREJ 


FACREJ 


COMPC 


COHPC 


FDBIN 


SUBRTN 


COMPN 


COMPN 


FIELD 


SUBRTN 


COMPRC 


COMPRC 


FLD 


FLD 


CPI 


CPI 


FMTGEN 


FMTGEN 


CYCLES 


CYCLES 


FORMAT 


FORMAT 
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ENTRY POINT TABLE (Con*t) 



F0RM2X 


F0RM2X 


LSORT 


LSORT 


FREDEV 


FREDEV 


MARGIN 


NOHEAD 


FREE 


FREE 


MARGNC 


NOHEAD 


FREES 


FREES 


MOVBIN 


SUBRTN 


FSORT 


FSORT 


MOVFD 


SUPP.TN 


FS0RT2 


FSORT 


MOVFDl 


SUBRTN 


GETC 


SUBRTN 


NEXREL 


NEXREL 


GETFIL 


GETFIL 


NEXREM 


NEXREL 


GETMAS 


GETMAS 


NOHEAD 


NOHEAD 


GETMSK 


MSK0P2 


NOPAGE 


NOHEAD 


GETMSM 


MSK0P2 


NRAND 


NRAND 


GETPCD 


GETPCD 


OCTBIN 


SUBRTN 


GETPCT 


GETPCT 


OMSG 


OMSG 


GETRAN 


IRANF 


OMSGW 


(MSG 


H2ACND 


H2ACND 


mSGV0 


OMSG^ 


H2S0RT 


H2S0RT 


msG^ 


(MSG0 


INFO 


SUBRTN 


OPENF 


CFHIO 


INSERT 


INSERT 


OVRFLO 


OVRFLO 


IRANF 


IRANF 


PARTBL 


SISO 


INT?:At 


INTIAL 


PRINTC 


ROSTER 


IRAND 


RANDOM 


PRTDIC 


PRTDIC 


I SCAN 


SUBRTN 


PUTC 


SUBRTN 


JDCOPY 


JDCOPY 


RANF 


RANF 


JDEOF 


JDEOF 


RANSEQ 


RANSEQ 


LASCMP 


LASCMP 


READF 


CFHIO 


LTSORT 


LI SORT 


READR 


RFILF. 
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ENTRY POINT TABLE (Con*t) 



REPEND 

REPENl 

RESDRV 

RESET 

REWIND 

REWINM 

RPCOPY 

RPEOF 

RPINDX 

RUNID 

SAMPLE 

SBUILP 

SCAN 

SELECT 

SETMSK 

SETSCN 

SETUP 

SETUPS 

SETUP9 

SHIFT 

SICLS 

SIGET 

SIOPN 

SOCLS 



REPEND 

REPENl 

RESDRV 

ROSTER 

TREAD 

DREAD 

RPCOPY 

RPEOF 

RPINDX 

RUNID 

SAMSEL 

LINK 

SUBRTN 

SAMSEL 

MSKOPl 

SUBRTN 

SETUP 

SETUPS 

SETUP9 

SHIFT 

SISO 

SISO 

SISO 

SISO 



SOOPN 

S0PEN3 

SOPUT 

SPOST 

SPREP 

SRAND 

SRREL 

SRRET 

SSORT 

STATS 

STATSS 

STATUS 

TIME 

TMTCSC 

TREAD 

USEMSK 

WRITEF 

TOITER 

ZERBLK 

ZEPvMSK 

ZERO 

ZEROl 

ZER^ 



SISO 

TABL3 

SISO 

SISO 

SISO 

RAND(»1 

LINK 

LINK 

LINK 

STATS 

STATS 

STATUS 

SUBRTN 

TMTCSC 

TREAD 

MSK0P2 

CFHIO 

RFILE 

ZERBLK 

MSKOPl 

ZERO 

ZEROl 

SUBRTN 
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SUBROUTINE IOKNTIFICATI(»l 

Name ASGA (Assign an Input File) 

Language FORTRAN V 

Date Nov 1973 

Programmer Welssmuller 
FUNaiON 

ASGA will test to see if the requested file Is already assigned to 
this run. If it is, ASGA establishes the FORTRAN UNIT number and 
returns. If it is not already assigned, ASGA issues an assignment 
request. If the request is accepted and the file is assigned, the 
FORTRAN UNIT number is established via the "@USE" card and control 
returns to the caller. If the request is rejected, however, a message 
is printed and the run is aborted. 

ENTRY POINTS 
1. ASGA 

CALLING SEQUENCE 

1. CALL ASGA (NAME, lUSE) 

a. Inputs 

(1) NAME is a three word array where words 1 & 2 are the 
filename in an A6,A4 lormat and the 3rd word is the 
negative file cycle in Al format. Word 3 « blank will 
assign cycle 0 (the most recent cycle*, 

(2) lUSE is a binary integer representing the FORTRAN UNIT 
to be associated with the requested file. 

b. Outputs 

(1) The file will be assigned and associated with the correct 
FORTRAN UNIT, OR 

10 

15 



ASGA--2 



(2) The run will abort after a diagnostic. 

SPECIAL NOTES 

This subroutine is very machine dependent* Its sole function is to 
specify an input file and establish its association with a designated 
FORTRAN UNIT. Hence this subroutine ought to be replaced by a routine 
more suited to the user^s installation. 
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SUBROUTINE IDENTIFICATION 



Nan^ 



ASGAM (Assign a Report or JD File) 



Language 



FORTRAN V 



Date 



Nov 73 



Programmer 



Welssmuller 



FUNCTION 

ASGAM will test to see If the requested file Is already assigned to 
this run. If It Is, ASGAM establishes the FORTRAN UNIT for this copy 
of the Report or Job Description file and returns. If not already 
assigned ASGAM will issue an assignment request. If the request is 
accepted and the file is assigned, the FORTRAN UNIT is established and 
control returns to the caller. If the request is rejected, a message 
is printed and the run is aborted. 

ENTRY POINTS 
1. ASGAM 

CALLING SEQUENCE 

1. CALL ASGAM (NAME,IUSE) 
a. Inputs 



(1) NAME is a three word array where words 1 & 2 are the filename 
in an A6,A4 format and word 3 is blank or a negative file 
cycle in Al format. 

(2) lUSE is a binary integer representing the FORTRAN UNIT to 
be associated with the requested file. 



b. Outputs 



(1) The file will be assigned and associated with the correct 



FORTRAN UNIT, OR 
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ASGAM-2 



(2) Tlie run will abort after a diagnostic. 
SPECIAL NOTES 

1. This subroutine is very machine dependent. Its sole function is 
to specify an input file and establish its association with a 
designated FORTRAN UNIT. Hence this subroutine ought to be replaced 
by a routine more suited to the user^s installation. 

2. The subroutine is designed to handle a 3 cycle Report or Job Descripti( 
file. These files are identified externally by their "M" suffix 
appended to the standard CODAP filename of exactly 10 characters. The 
most current copy of cycle is (-0) and the oldest copy is cycle (-2). 
The existence of a (-3) cycle implies an error on a previous run. See 
subroutine CYCLES. 
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SUBROUTINE IDENTIFICATION 



Name 



ASGC (Assign an Output File) 



Language 



FORTRAN V 



Date 



Nov 73 



Programmer 



Weissmuller 



FUNCTION 

ASGC checks the MASTER FILE DIRECTORY to see If a file with this name 
already exists. If none exist, a request for a blank output tape Is 
Issued. When the request Is accepted the FORTRAN UNIT Is established 
for the new file and control returns to the caller. If, however, another 
file with this name already exists, the last four digits of the filename 
are converted to binary Integer, one is added and the binary Integer Is 
reconverted to an A4 format. If this is not the fifth such attempt, 
control transfers to the first test above. If the last A digits are not 
numeric or five changes have been made, the subroutine prints a diagnostic 
and the run aborts. 

ENTRY POINTS 
1. ASGC 

CALLING SEQUENCE 

1. CALL ASGC (NAME, lUSE) 
a. Inputs 

(1) NAME is a two word array containing the output filename 



In A6,A4 format. A (+1) file cycle Is always assigned. 



Indicating this Is the most recent copy. 



(2) lUSE Is a binary Integer representing the FORTRAN UNIT to 



be associated with the requested file. 
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b • Outputs 

(1) The file will be assigned and associated with the correct 
FORTRAN UNIT, OR 

(2) The run will abort after a diagnostic. 

SPECIAL NOTES 

This subroutine is very machine dependent. Its sole function is to 
specify an output file and establish its association with a designated 
FORTRAN UNIT. Hence this subroutine ought to be replaced by a routine 
more suited to the user's installation. 
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SUBROUTINE IDKNTIFICATION 



Name 



ASGCM (Create 3 Reel Report or JD File) 



Language 



FORTRAN V 



Date 



Nov 73 



Prograiron er 



Weissmuller 



FUNCTION 



ASGCM is the same as ASGC with the following exceptions: 

a. ASGCM creates 3 new tapes with an "M" suffix and leaves the 
third reel mounted, 

b. ASGCM requests the operator to reserve a tape drive and 
indicate the unit number to the program. 

c. ASGCM writes a binary 1 to FORTRAN UNIT 2 which is a running 
record of the number of "BEGIN REPORT" sentenils on the Report 
file. 

ENTRY POINTS 

1. ASGCM 

2. ASGCMR 
CALLING SEQUENCES 

1. CALL ASGCM (NAME,IUSE) 
a. Inputs 

(1) NAME is a two word array containing the new Report or Job 



Description filename in an A6,A4 format. For external 
identification purposes, an "M" is appended to the 10 
character filename signalint^ the operators to leave t le 
WRITE rings in place. 
(2) lUSE is a binary integer representing the FORTRAN UNIT to be 
associated with the requested file. 
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b* Outputs 



(1) The file will be assigned and associated with the correct 



FORTRAN UNIT, OR 



(2) The run will abort after a diagnostic* 



2. 



CALL ASGCMR 



Inputs - NONE 



b. 



Outputs 



(1) A message to the operator to release the requested tape 



drive from Its reserved state. 

SPECIAL NOTES 

1. This subroutine Is very machine dependent. Its sole function is to 
create either a Report or Job Description file with two backup copies, 
and establish a FORTRAN UNIT for the most recent copy. Hence this 
subroutine ought to be replaced by a routine more suited to the user's 
Installation. 

2. The subroutine Is designed to handle a 3 cy^le Report or Job description 
file. These files retain their WRITE ENABLE ring as they are used for 
output again at a later time. (See ASGAM and CYCLES), In addition, 
their external filename contains an "M" suffix to alert the operators 
that the WRITE ENABLE rings are NOT to be removed. 
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SUBROUTINE IDENTIFICATION 



Name 



AUTORV (Automatically Revert to Backup Copy) 



Language 



FORTRAN V 



Date 



Jul 74 



Programroer 



Welssmuller 



FUNCTION 

AUTORV deletes the "current copy" entry In the MASTER FILE DIRECTORY for 
the Report or Job Description file. This has the effect of making the 
first backup copy become the most current copy. AUTORV is called only 
AFTER it has been decided that the reversion is necessary. This is 
determined by checking for a third backup copy (-3 cycle). If a third 
backup copy is found in the MASTER FILE DIRECTORY, a reversion is 
necessary since a normal termination of a CODAP run will delete the 
references to the third backup. 

ENTRY POINTS 
1. AUTORV 

CALLING SEQUENCE 

1. CALL AUTORV (NAME.IUSE) 



a. Inputs 

(1) NAME is a two word array containing the filename of the 
Report or Job Description file in an A6,A4 format. The 
"M" suffix will be appended automatically. 

(2) lUSE is a binary integer representing the FORTRAN UNIT 
number that the subroutine is allowed to use for internal 
processing associated with NAME. 
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b • Outputs 

(1) The first backup copy (-1 cycle) will beco»e the most 
current copy (0 cycle) upon return from the siAroutine. 

SPECIAL NOTES 

This subroutine is very machine dependent. Its sole function is to 
insure that the proper reel of a 3 reel file is used for input. If 
backup copies of Report and Job Description files are not maintained 
this subroutine is not even needed. If the using installation does not 
have the equivalent of a MASTER FILE DIRECTORY (an online index of tapes 
and mass storage files), then this subroutine cannot be programmed and 
the responsibility for specifying the proper reels is left to the user 
of the program. (See CYCLES). 
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SUBROUTINE IDENTIFICATION 



Name 



BLANK (Fill an Array With Blanks) 



Language 



FORTRAN V 



Date 



Nov 73 



ProgracBsier 



Ueissmuller 



Blank is a FORTRAN DO LOOP which fills a specified portion of an array 

with blanks. 
ENTRY POINTS 

1. BLANK 
CALLING SEQUENCE 

1. CAIX BLANK (Nl^RDS, lARRAY) 

a. Inputs 

(1) NWORDS is a binary integer specifying the niai^er of words to 
be blanked out. 

(2) lARRAY is an array name Into which the blanks are to be inserted. 

b. Outputs 

(1) lARRAY will have NUORDS of blanks inserted. 
SPECIAL NOTES 

1. This subroutine uses a literal ' * to fill the array. A data word may 
be established if direct use of literals is not implemented in FORTRAN 
at the user*s installation. 

2. A call of " CALL BLANK(ia,LIST(S))" may be used to blank out only 
words S through 14 of array LIST, leaving words 1-4 and IS-end unaltered. 
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SUBROUTINE TDFNTIFICAriON 

Naaie CFHIO (COBOL FMe Handler I/O Interface) 

Lan^ua ^e 1100 Assec^bler 

Pate 5 Sep 74 

Program«»r Rogers 
FllNCtlOM 

This subroutine Is an Interface for the COBOL File Handler. It allows 
for opening, reading, writing and closing of COBOL files. If a file 
is not catalogued or assigned when the OPEN routine is called, parameters 
in the calling seouence set the tvpe of equinment and the size of the 
file and the appropriate request is issued. 
RNTRY POINTS 

1. OPENF 

2. READF 

3. WRITEF 

4. CWZEF ' 
CALLING SEQUENCE 

1. CALL OPENF (FIT) 
a. Inputs 

(1) FIT is the File Information Table. It is an array of 
parameters, file control table, and buffer area. It is 
used by all calling sequences. The information in the FIT 
is as follows: 

FIT(1),FIT(2) 12-character INTERNAL FILE NAME, left 

lustified with trailing spaces. 

FIT(3)-FTT(7) 30-character EXTERNAL FILE NAME, left 

justified with trailing spaces. If FJCTERNAL 
21 



6 



CFHtO-2 

FILE NAME is spaces, CFHIO will use the 
INTERNAL FILE NAME to assign the file and 
no @USE will be generated. 
FIT(8) BLOCK SIZE of the file. 

FIT(<5) LRL of the record. It is alwavs specified 

in words. When the file is closed via 
CLOSEF, the LRL will be set to zero. 

FIT(IO) OPTIONS are specified as fieldata characters, 

six characters per word, loft to right. 

51 Input /Output flag 
I « Input 

0 - Output 

52 Buffering flag 

D « Double buffering 
S = Single buffering 

53 Labeling flag 

0 « Omitted labels 
S s Standard labels 
U = User labels 

54 Open options 
N » No rewind 
R s Rewind 

55 Close options 

L = Lock (Unload) 
N « No rewind 
R » Rewind 
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Dynamic assign flag 
N » No print 

P « Print @ASG and @USE statements 
FIT(ll) Assignment specifications in fieldata: 

51 Assignment flag 

C « Catalogue the file 
T « Temporary file 

U « Unconditionally catalogue the file 

52 Space requirement 

F « FASTRAND (EXEC 8 default amount) 

P = Position granularity 

T « Track granularity 
S3-S6 Number of granules in fieldata, left 

justified with trailing spaces. 
If S1-S6 » spaces, @ASG,A is made. 
FIT(12)-FIT(94) File Control Table area. This area will 

be used by CFHIO and should be zero originally. 
FIT(95)-FIT(N+94) Buffer area, where: 

N « (BLOCKSIZE + 2) * 2 for double buffering 
N « (BLOCKSIZE + 2) for single buffering 

Outputs 

(1) The file will be assigned if necessary and opened OR 

(2) The facilities rejected messages will be printed, in either 
case the program continues. 
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CALL REAOF (KIT, RK CORD, $EOF) 

a. Inputs 

(1) FIT as described above. 

(2) EOF Is an alternate exit to be returned to when End-of-File 
is encountered. If EOF is zero, the normal return is taken. 
End-of-File is also indicated by LRL = 0. 

(3) RECORD is for output onlv. 

b. Outputs 

(1) RECORD is the arrav containing the next logical record on 
the file. The LRL is returned in the FIT. 

(2) EOF is an alternate exit to be returned to when End-of-File 
is encountered. If EOF is zero, the normal return is taken. 
End-of-File is alfeo indicated by LRL • 0. 

CALL WRITEF (FIT, RECORD) 

a. Inputs 

(1) FIT as described above with the LRL set for the output 
record length, 

(2) RECORD is the array containing the output image. 

b. Outputs 

(1) The RECORD arrav is written to the COBOL file. 
CALL CLOSEF (FIT) 

a. Inputs 

(1) FIT as described above. 

b. Outputs 

(1) The COBOL file is properly closed and the LRL is set to zero. 
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SPFCIAI, NOTF.S 

1. This routine is highly specialized for the UNIVAC COBOL FILK HANDLKR. 
Some type of replacement will be required if FORTRAN and COBOL files 
are not directly compatible. 

2. All CODAP programs which use COBOL files (SETCHK, INPSTD,TSKNDX,TSKCRP, 
REXALL, and ASFACT) require a card-image file with a blocking 

factor of 50. On the UNIVAC 1108 this means LRL « 14, blocksize = 751 = 
(lAxSO 4- 51 control words). 
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SUBROUTINE IDENTIFICATION 

Name CO>tPA (Compare Alphabetic Values) 

Languag e FORTRAN V 

Date Dec 73 

Programmer Rogers/Barton 
FUNCTION 

COMPA compares two FIELDATA words, returning a -1,0, or 1 depending upon 
their relative values. Use is particularly suited to the FORTRAN Arithmetic 
IF Statement. 
ENTRY POINTS 

1. COMPA (Function: returns integer -1,0, or 1) 
CALLING SEQUENCE 

1. COMPA (LAV1,LAV2) 

a. Inputs 

(1) LAVl and LAV2 contain FIELDATA words which are to be compared. 

b. Outputs 

(1) The Integer Function COMPA will take on the value 0 if LAVl 
and LAV2 are identical. If LAVl is lower In the ^lELDATA 
collating sequence than LAV2 (e.g. LAVl = 'EARLYl' and 
LAV2 = •LATER2'), the value taken is 1. Otherwise the value 
is -1. 

SPECIAL NOTES 

1. This version of COMPA is a FORTRAN V rewrite of an IBM 7040 Assembly 
Language subroutine. Results depend upon the collating sequence of 
characters on the machine used. For example, in FIELDATA, the 
characters of the alphabet (A-Z) precede the alphanumeric characters 
1-9, while the reverse was true of IBM. 
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2. COMPA is used as an argument of a subroutine by the program DIST2X. 

3. The function COMPA utilizes the FORTRAN FLD Function. 

4. The name COMPA is declared INTEGER and EXTERNAL. 
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SUBROUTINE IDENTIFICATION 

^ . ^"le COMPC (Compare Alphabetic or Numeric Values) 

Languap^e FORTRAN V 



Programmer Rogers/Barton 
FITNCTION 

Fot' a pair of words, COMPC returns the value from either COMPA or 
COMPN, depending upon the value of a flag word in COMMON. Use is 
particularly suited to the FORTRAN Arithmetic IF Statement. 
ENTRY POINTS 

1. COMPC (Function: returns integer -1,0, or 1) 
CALLING SEQUENCE 

1. COMPC (LAVC,LAVD) 
a. Inputs 



(1) LAVC and LAVD contain the values which are to be compared. 
The two words must be either both alphabetic (e.g. FIELDATA) 
or both numeric, and 

(2) The flag word in COMMON must be set to 1 or 0, respectivelv. 



(1) If the value of the flag word is 0, COMPC takes on the same 
value as would COMPN. 

(2) If the value of the flag word is 1, COMPC takes on the same 
value as would COMPA, In general, COMPC returns a 0 if 

the values compared are "equal", a -1 if the first value 
(LAVC) is "larger", and a 1 if the second value (LAVD) is 
"larger". The specific meaning of "larger" depends upon 
which function, COMPA or COMPN, is selected. 



Date 



Dec 73 



b. 



Outputs 
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SPEClAl NOTES 

!• This version of COMPC is a FORTRAN V rewrite of ah IBM 7040 Assembly 
Language subroutine • COMPA and CO>tFN are used directly by this 
function, 

2. The name CO>tPC is declared INTEGER in DIST2X. 
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SUBROUTINF IDENTIFICATION 



Name 



COMPN (Compare Numeric Values) 



Language 



FORTRAN V 



Date 



Dec 73 



Programmer Rogers/Barton 
FUNCTION 

COMPN compares two binary integer words, returning a -3,0, or 1 depending 
upon tbeir relative values. Use is particularly suited to the FORTK^N 
Arithmetic IF Statement. 
ENTRY POINTS 

1. COMPN (Function: returns integer -1,0, or 1) 
CALLING SEQUENCE 

1. COMPN (LAV1,LAV:) 



a. Inputs 

(1) LAVl and LAV2 contain binary integers which are to be compared. 

b. Outputs 

(1) The Integer Function COMPN will take on the value 0 if lAVl 



and LAV2 are identical. If LAVl is less than LAV2, the value 
taken is 1. Otherwise, the value is -1. 

SPECIAL NOTES 

1. This version of COWN is a very simple FORTRAN V rewrite of n IBM 
7040 Assembly Language subroutine. 

2. COMPN is used as an argument of a subroutine by the program DIST2X. 
The function name is declared INTEGER and EXTERNAL. 
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SUBROUTINE. IDENTIFICATION 

Name COMPRC (Compare Two-Word Alphabetic or Numeric Values) 

Language FORTRAN V 
Dat£ Dec 73 

Programmer Ropers/Barton 
FUNCTION 

For two ordered pairs of words, CO^fPRC returns the value from COWA or 
COMPN or both, depending upon the values of two flag words in COMMON. 
Use is particularly suited to the FORTRAN Arithmetic IF Statement. 
ENTRY POINTS 

1. COMPRC (Function: returns integer -1, 0, or 1) 
CALLING SEQUENCE 

1. COMPRC (LAVA,LAVB) 

a. Inputs 

(1) LAVA and LAVB are each a two-word subscripted arrav 
containing values which are to be compared. Corresponding 
words in the two arrays must be either both alphabetic (e.g. 
FIELDATA) or bcch numeric, and 

(2) The corresponding flag word (of a two-word CO>fMON array) 
must be set to 1 or 0, respectively. 

b. Outputs 

(1) If the value of a flag word is 0, COMPRC takes on the same 
value as would COMPN for the corresponding pair of input words. 

(2) If the value of a flag word is 1, COMPRC takes on the same 
value as would COMPA for the corresponding pair of input words. 
In general, CO^fPKC returns a 0 if both pairs of corresponding 
values are ''equaV\ a -1 if LAVA(l) or \AVM2) is "larger" than, 
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LAVB(l) or LAVB(2), respectively, and 1 in the reverse 
Instance. The specific meaning of "larger" depends upon 
which function, CO>rPA or COMPN, is selected. If the pair 
or words subscripted (1) are not "equal", the second pair 
will not be examined. 

SPECIAL NOTES 

1. This version of COMPRC Is a FORTRAN V rewrite of an IBM 7040 Assen^lv 
Language subroutine. COMPA and COffPN are used directlv bv this 
function. 

2. The name COMPRC is declared INTEGER in DIST2X. 
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SUBROUTINE IDENTIFICATION 



Name 



CPI (Pack Characters Into a Word) 



Language 



FORTRAN V 



Date 



April 1974 



Pro^raimner 



Stac jy /Bar ton 



FUNCTIW 

CPI generates characters from three words of inforo^tion and packs 

them left lustified into a single word. 
ENTRY POINTS 

1. CPI 
CALLING SEQUF^iCE 

1. CALL CPI (NR,IAXP,LAP,LFW,NFC,KTFW,KTFC,ICMA,LOPT) 



a. Inputs 

(1) NR is an integer format repetition factor (e.g. the *7* 
in 7A2). 

(2) lAXP is the alpha format character (e.g. I,A^X,etc.), 
left justified. 

(3) LAP is an integer format field lenjtth (e.a. the *2* 
in 7A2). 

(4) ICMA is either a parenthesis or a comma, left justified 
alpha. 

(5) LOPT is an integer option flag. For LOPT - 0, if lAXP is 'V 
the subroutine changes it to 'A* . For LOPT » 2, lAXP is 
changed to 'A* for either •l* or 'X^. For LOPT - 1, the 
lAXP input is left unchanged. 
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(6) KTW and KTFC are simplv passed bv CPI between P^^EN 
and INSKRT. 

(7) LFV and NFC are for output onlv. 
b* Outputs 

(1) LFW contalnfi the left iusttfied alpha characters generated 
from ICMA, NR, lAXP, and UP* For example, if ICMA » 
•(WUW ,NR»7, lAXP « and LAP-2, after a call 
to CPI, LFW would contain ^ i7K2W^ , And 

(2) NFC contains the Integei lumber of characters packed Into 
LFW. In the exao^le aliuve, NFC would equal 4. And 

(3) ICMA is set to a left Iusttfied alpha cowaia, OR 

(A) If NR or IJVP exceeds 99, the run aborts after a diagnostic. 

SPECIAL NOTES 

1. This subroutine Is highly sDeciallzed for use bv FMTGEN to create 
FORTRAN formats from CODAP Fort«i»f Cards. 

2. The subroutine is not maciiine dependent, except that a 6«-character 
word is assumed, so little or no conversion need be required. 
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SUBW)imNE IDENTIFICATION 

Haae CYCLES (Establish n«w copy of Report or JD file) 

LanRuage FORTRAN V 

Date Nov 73 

Prograamer Weisswullcr 
FUNCTION 

CYCLES checks the MASTER FILE DIRECTORY to see if a third backup exists. 
If it does, AUTORV is called, otherwise CYCLES continues. Next, CYCLES 
checks to s^i* if a new copy is already assigned to this run* If it is, 
the FORTRAN UNIT is established and control returns to the caller. If not, 
an assignment request is issued for the oldest backup copy, (-2 cycle). 
The assignment request specifies that if the run terminates normally all 
reference to this backup cycle be deleted from the MASTER FILE DIRECTORY, 
This physical reel will receive a copy of the most current version plus 
all information generated in this run. Its FORTRAN UNIT is set equal to 
lUSE. Next, the most current copy (-0) is assigned, A FORTRAN UNIT of 
28 is established if the file is a Report file (lUSE - 26) or a FORTRAN 
UNIT of 27 is established if the file is a Job Description file (lUSE « 25), 
At this point the physical reel ID of FORTRAN UNIT "lUSE" (the oldest 
backup) is entered into the MASTER FILE DIRECTORY as a new copy of the file 
(+1 cycle). 

Hence, if a Report file is designated (lUSE « 26), CYCLES assigns the 
roost current copy to FORTRAN UNIT 28 and the new copy to be created (by 
writing over the oldest backup) to FORTRAN UNIT 26 (- lUSE). 

If, however, a Job Description File is designated (lUSE « 25), CYCLES 
assigns the most current copy to FORTRAN UNIT 27 and the new copy to be 
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created (by writing over the oldest backup) to FORTRAN UNIT 25 (= lUSE) • 

Control returns to the caller upon assignment of the files. 
ENTRY POINTS 

1. CYCLES CYCLES itself does NOT copy from the current 

copy to the newest copy. See RPCOPY and JDCOPY. 

CALLING SEQUENCE 

1. CALL CYCLES (NAME, lUSE, lASGD) 

a. Inputs 

(1) NAME is a two word array containing the Report or Job 
Description filename in an A6,A4 format. An "M" suffix 

is appended to the standard CODAP filename for external use 
and to remind the operators that the WRITE ENABLE riw 
must be left in place. 

(2) lUSE a binary integer representing the FORTRAN UNIT to 
be associated with the newest copy of the file to be 
created. Must be either 25 or 26* 

(3) lASGD (output only) 

b. Outputs 

(1) lASGD will be set to 1 if the File was already assigned 
prior to calling CYCLES, or lASGD will be set to 0 if 
the subroutine CYCLES had to assign the file. 

(2) Either 

(a) The most current copy of the Job Description file 
associated with FORTRAN UNIT 27 and the new copy to 
be created is associated with FORTRAN UNIT 25 

(IF lUSE = 25) 

(b) The most current copy of the Report file associated with 
FORTRAN UNIT 28 and the new copy to be created will be 
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associated with FORTRAN UNIT 26 (If lUSE =» 26) OR 
(c) The run will abort ae to an invalid NAME being specified. 

SPECIAL NOTES 

1. This subroutine is very machine dependent. Its sole function is 
to cycle new and old copies of the Report or Job Description files 
in preparation to actually copy and append new information onto the 
newest cycle. 

2. This subroutine requires a MASTER FILE DIRECTORY (an online index 
of tapes and mass storage files) or its equivalent. See AUTORV. 
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SUBROUTINE IDENTIFICATION 



Name 



DATACV (Data Conversions, FIELDATA/binary) 



Language 



1100 Assembler 



Date 



May 73 



Programmer 



Weissmuller 



FUNCTION 

DATACV has two entry points. One entry point is used to convert 
FIELDATA to binary and conversely, the other entry point Is used to convert 
binary numbers to their FIELDATA representation. These subroutines are 
used instead of ENCODE or DECODE statements because they provide for an 
error return. 
ENTRY POINTS 

1. BCDBIN 

2. BINBCD 
CALLING SEQUENCE 

1. CALL BCDBIN ClBCD, IBIN, NCHAR, ^ERR) 



a. Inputs 

(1) IBCD is a FIELDATA string of characters, left adjusted. 

(2) IBIN is for output only. 

(3) NCHAR is the number of characters to attempt to convert 

to binary. If NCHAR*2 only the 2 left most characters will 
be used. 

(4) ERR is a FORTRAN statement number to which control will 

be passed if the leftmost NCHAR characters of IBCD contain 
a non-numeric. Note that preceding blanks are considered 
to be zeroes, but that embedded or trailing blanks are 
considered errors. 
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b. Outputs 

(1) IBIN is the binary Integer value of the leftmost NCHAR 
characters of IBCD, OR 

(2) Control is transferred to statement ERR of the calling 
program. 

2. CALL BINBCD (IBIN, I BCD, NCHAR, ^ERR, I FLAG) 
a» Inputs 

(1) IBIN is a full word binary integer. 

(2) IBCD is for output only. 

(3) NCHAR is the number of character positions available to 
receive the FIELDATA representation of IBIN. 

(4) ERR is a FORTRAN statement number to which control will 
be passed if the FIELDATA representation of IBIN exceeds 
NCHAR characters. 

(5) IFLAG is a binary integer which is equal to either 0 or 

1. If IFLAG = 0, preceding zeroes of IBCD will be left as 
zeroes. If IFLAG = 1, preceding zeroes of IBCD will be 
converted to blanks, 
b. Outputs 

(1) IBCD is a FIELDATA string NCHAR characters long, left 
adjusted, OR 

(2) Control is transferred to statement ERR of the calling 
program. 

SPECIAL NOTES 

1. Not only is this program very machine dependent because it is in 
assembler^ but is is also dependent on the FIELDATA code structure. 
^ (See attachment.) This subroutine ought to be rewritten for the 

user^s installation. 
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D.6. 80COLUIV1N CARD CODE. SYMBOL. XS-3. FIELDATA. EBCDIC. BCD CONVERSION 
TABLE 

Tabic D-G ciois roforoncos printor symbol* with the card punch, XS-3, Fieldata, EBCDIC, and BCD codes. 



SO-Cotumn 
Card Code 


High-Spocd 
Printer 
Symbol 


XS.3 


Fieldata 


EBCDIC 


BCD 


Octal 


Octal 


Hexidecimai 


Octal 


12-1 


A 


24 


06 


CI 


61 


12-2 


B 


25 


07 


C2 


62 


12-3 


C 


26 


10 


03 


63 


12-4 


D 


27 


11 


C4 


64 


12 5 


E 


30 


12 


C5 


65 


12-6 


F 


31 


13 


C6 


66 


12-7 


G 


32 


14 


C7 


67 


12-8 


H 


33 


15 


C8 


70 


12-9 


1 


34 


16 


C9 


71 


IM 


J 


44 


17 


Dl 


41 


11-2 


K 


45 


20 


02 


42 


11-3 


L 


46 


21 


03 


43 


11-4 


M 


47 


22 


04 


44 


11-5 


N 


50 


23 


05 


45 


11-6 


0 


51 


24 


06 


46 


11-7 


P 


52 


25 


07 


47 


11-8 


Q 


53 


26 


08 


50 


11-9 


R 


54 


27 


09 


51 


0-2 


S 


65 


30 


E2 


22 


0-3 


T 


66 


31 


E3 


23 


0-4 


U 


67 


32 


E4 


24 


0-5 


V 


70 


33 


E5 


25 


06 


w 


71 


34 


E6 


26 


0-7 


X 


72 


35 


E7 


27 


08 


Y 


73 


36 


E8 


30 


0-9 


2 


74 


37 


E9 


31 


0 


0 


03 


60 


FO 


12 


1 


1 


04 


61 


F1 


01 



Tjbto D-6 80-Column Cird Coda, Symbol. XS-3. FielJjta. EBCDIC. BCD Conversion Tjbtt (Part 1 of 31 

40 

45 



UNIVAC nOO SERIES SYSTEMS 



D-13 



PACE REVISION 



SO Coiiinin 
I Curd Code 


Hit)h Spood 
Pr»iUcr 
Symbol 


XS 3 


Fiolddta 


EBCDIC 


BCD 


Ocidt 




Hexadecimal 




1 

2 


2 


05 


62 


F2 


02 


1 3 


3 


06 


63 


F3 


03 




4 


07 


64 


F4 


04 


5 


5 


10 


65 


F5 


05 


i 6 


6 


11 


66 


F6 


06 


i 7 




12 


67 


F7 


07 


» 8 

1 


8 


13 


70 


F8 


10 


! 9 

i 


9 


14 


71 


F9 


11 


12 


+ 


20 


42 


50 


60 


n 


-(minus) 


02 


41 


60 


40 


12-0 


7 


23 


54 


6F 


72 


11-0 


\ 


43 


55 


5A 


52 


0-1 


I 


C4 


74 


61 


21 


2-8 


St 


63 


46 


7A 


GO or 60* 


i 38 
f 




35 


44 


7B 


13 


4-8 


(apos) 


56 


72 


7C 


14 


58 




21 


1.3 


7D 


15 


68 


> 


76 


45 


7E 


16 


78 




40 


00 


7F 


17 


1238 




22 


75 


48 


73 


124-8 


\ 


75 


40 


4C 


74 


12 5-8 


1 


17 


01 


4D 


75 


12-6-R 


< 


36 


43 


4E 


76 


127 8 




37 


03 


4F 


77 


113 8 


s 


42 


47 


58 


53 


11 4-8 


• 


41 


50 


5C 


54 


n 5-8 

1 


J 


01 


02 


5D 


55 


116 8 




16 


73 


5E 


56 


11 7-8 


A 


57 


04 


5F 


57 


0 2-3 




60 


77 


EO 


32 


038 


(comma) 


62 


56 


6B 


33 
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0-14 


C P • N w MOCK 




PACE RC V SiOn 


p Ace 





HujI) Speed 










SO Column 


Printer 


XS-3 


Ficldata 


EBCDIC 


BCD 


Cjrd Code 


Synibol 


Octal 


OctuI 


Hexadecimal 


Octal 


04S 


{ 


CI 


51 


60 


34 


063 


% 


55 


52 


6D 


35 


0 o8 


\ 


15 


57 


6E 


36 


0-7 S 


C 


11 


76 


6F 


37 


Bljnk 


t> 


00 


05 


40 


20 



NOTE 



1 Symbols are for sundord Univjc Type 750 Scries High Speed Printers 
•00 uiod US a stop code on tapes using even parity 

l3bi6 0-5 SO-Co/umn Card Code, Symbol, XS 3, Fieldjta, SBCDX, BCD Conversion Table (Part 3 of 3) 
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SUBROUTINE IDENTIFICATION 



Naroe 



DATETM (Get Date and Time from the System) 



Language 



FORTRAN V 



Date 



Jun 74 



Programmer 



Weissmuller 



FUNCTION 



DATETM will query the System to retreive the current date and time, 
recede the month, reformat the information and return. 
ENTRY POINTS 

1 . DATETM 
CALLING SEQUENCE 

1. CALL DATETM ; 2 DATE, ITIME) 
a* Inputs 

(1) IDATE is for output only (2 word array) 

(2) ITIME is for output only (2 word array) 
b. Outputs 

(1) IDATE will contain the date, month, and year in an A6, 
A3 format, (e.g., '12 Jan 74') 

(2) ITIME will contain the current time in an A6, A2 format. 



SPECIAL NOTES 

1. This subroutine is very machine dependent but should be easy to 



(e.g. '15:25:01') 



replace on any machine. 
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SUBROUTINE IDENTIFICATION 



Name 



DELAY (Timing delay in seconds) 



Language 



1100 Assembler 



Date 



Sep 73 



ProRranmer 



Weissmuller 



FUNCTION 

DELAY will cause a program to pause for the specified number of seconds. 
(30 seconds is Llie maximum allowed*) Its primary usage is within the file 
assignment routines which will solicit for a tape drive every 30 seconds 
until one becomes available. 
ENTRY POINTS 

1. DELAY 
CALLING SEQUENCE 

1. CALL DELAY (NSEC) 

a. Inputs 

(1) NSEC is a binary integer indicating the number of seconds 
to pause. (Maximum allowed is 30.) 

b. Outputs 

(1) Execution of the program will be suspended for the specif iied 
period. 

SPECIAL NdTES 

1. This subroutine is very machine dependent. Moreover, if the user's 



installation does not allow or provide for repeated requests for 



tipe drives, this subroutine may not even be needed 
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SUBROUTINE IDENTIFICATION 



Name 



DISK (Random Access I/O) 



Language 



FORTRAN V 



Date 



Aug 73 



Programmer 



Weissmuller 



FUNCTION 

This subroutine's primary purpose was to serve as an interface for the 
conversion of the CODAP system from an IBM 7J)A0 to a UNIVAC 1108 • The 
7040 version was in assembler » so to minimize recoding^ the 1108 version 
was coded in FORTRAN to simulate the 7040 version* 
ENTRY POINTS 

1. DISK 

2. DSKSTO 

3. DSKRED 
CALLING SEQUENCES 

1- CALL DISK (NREC, LENGTH) 
a* Inputs 

(1) NREC is a binary integer denoting the maximum number of 
random records to be written. 

(2) LENGTH is a binary integer indicating the maximum length 
(in words) of any given record* 

b. Outputs 

(1) A random access file established for FORTRAN unit 29. 
2. CALL DSKSTO (NWORDS, lARRAY, IREC, ISW) 
a. Inputs 

(1) NWORDS is a binary integer representing the number of 

words to be written to the random a** .sss unit (29). 
O 45 
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(2) lARRAY is the location of the first of NWORDS to be written 
or stored on unit 29* 

(3) IREC is a binary integer specifying the index or key of 
the record to be written. IREC may be any number from 1 
to the NREC value specified in CALL DISK (NREC, LENGTH) 

(4) ISW is a binary integer equal to 0 or 1. If ISW « 0, 
DSKSTO will simulate an IBM 7040 random access routine and 
block all outputs by 465 words* If ISW - 1 (actually i 0), 
DSKSTO will store the information provided into a single 
record* 

b* Outputs 

(1) NWORDS of information beginning with core location lARRAY 
will be stored in record number IREC and will be blocked 
by 465 if ISW » 0, and unblocked otherwise* OR 

(2) The run will abort if an IREC greater than NREC is specified* 
CALL DSKRED (NWORDS, lARRAY, IREC, ISW) 

a* Inputs ^ 

(1) NWORDS is a binary integer indicating the number of words 
to be read from the random access unit (29). 

(2) lARRAY is the location in core of the first available word 
to receive the information Just read* 

(3) IREC is a binary integer specifying the index or Key of 

the record to be read. Note: A request to read a record 

which has not been written causes an error termination* 

In DSKSTO IREC may be any number within the range 1 to 

NREC, while in DSKRED, IREC must not only be in that 

range, but also must have appeared in a call to DSKSTO* 
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(4) ISW is a binary integer equal to 0 or 1. If ISW « 0 
DSKRED will simulate an IBM 7040 random access routine 
and read information in blocks of 465 words. If ISW " 1 
t)f DSKRED will read unblocked data. 

b. Outputs 

(1) NWORDS of information will be read into lARRAY from record 
IREC of the random access unit (29). OR 

(2) The run will abort if: 

(a) an IREC greater than NREC is specified 

(b) an IREC which was not written with DSKSTQis specified 

(c) Nl^ORDS is greater than the number of words actually 
in the specified record IREC. 

SPECIAL NOTES 

1. The DISK entry point must be called prior to either DSKSTO or 
DSKRED, and the DSKSTO call must logically precede the DSKRED call. 

2. This subroutine is very machine dependent and is in fact a replace- 
ment of an IBM 7040 machine dependent routine. The value of this 
routine is questionable. If the user's installation has a FORTRAN 
compiler which allows direct coding of random access reads and writes, 
this routine is unnecessary for new programs, but allows easy con- 
version of older programs. If, on the other hand, FORTRAN does not 
allow such direct references, this routine could be coded in the 
user's assembler language and pretty much replace the direct 
references as they appear in the UNIVAC 3108 FORTRAN V version. 

3. This routine is much less powerful than direct FORTRAN V random 
I/O statements. The FORTRAN V random access statements allows 
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tho user to specify a Hst of vari«ibles to be vritten, and the list 
need not be of items contiguous in core. DSKSTO, however, will 
only access sequential core locations and hence any type of 
"skipping around" must be accomplished by moving all values into 
a single array (if not already equivalenced) • Generally speaking 
these moves of one array into another are done via TMTCSC. 
Moreover, in order to use DSKRED, one must know the number of 
words in the Record prior to reading it. Hence it was decided 
that DSKSTO and DSKRED would not be used in new programs even 
though doing so would have greatly simplified conversions for 
other installations. 
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SUBROUTINE IDENTIFICATION 



Name 



DISTXl (Binary Search for Proper Interval of Distribution) 



Language 



FORTRAN V 



Date 



May 73 



Prog rammer Weissmuller 
FUNCTION 

DISTXl determines within which, if any, interval on a range a given value 

lies. 
ENTRY POINTS 

1. DISTXl 
CALLING SEQUENCE 

1. CALL DISTXl atAXNJBOT,ITOP,IFIND,ICOMP,ISUB) 
a. Inputs 



(1) MAXN is the binary integer number of intervals. 

(2) IBOT is the arra/ of inclusive lower bounds, one for each of 
MAXN intervals. 

(3) ITOP is the array of inclusive uoper hounds, one for each of 
MAXN intervals. Both upper and lower bounds must be specified 
in ascending order and cannot overlap, but "gaps" between 
intervals are permitted. 

(4) IFIND is the value to be matched against the inten.ais. 

(5) ICOMP is the EXTERNAL-izK«d name of the comparison function 
(e.g. COr-iPA or COMPN) appropriate to the value being tested. 

(6) ISUB is for output only. 
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b. Outputs 

(1) ISUB is the binary integer interval number (array subscript 
for IBOT and ITOP) within which the value lies. If the 
value ic not within any interval specified, ISUB = 0. 

SPECIAL NOTES 

1. The subroutine utilizes a binary search technique with a variable 
comparator function; hence COMPA, CO>fPN, and/or other user-soecif led 
functions need be supported. 
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SUBROUTINE IDENTIFICATION 



Name 



DKSTAT (Disk Status) 



Language 



1100 Assembler 



Date 



Sep 73 



Programmer 



Weissmuller 



FUNCTIW 

DKSTAI is the subroutine used by all the "assign file" subroutines^ 
This is the routine which actually tests to see if a mass storage file 
Is already assigned to the run. See STATUS for a similar function 
on tape files. 

ENTRY POINTS 
1. DKSTAT 

CALLING SEQUENCE 

1. CALL DKSTAT (ID^IC0DE1,IC0DE2,IFLAG) 



a. Inputs 

(1) ID is a two word array which contains the FORTRAN UNIT 
left adjusted in FIELDATA in the first word and the 
second word blank. The association between the FORTRAN 
UNIT and the external filename must be established p*"ior 
to this call. 

(2) ICODEl is output only. 

(3) IC0DE2 is output only. 

(4) IFLAG is output only. 

b. Outputs 

(1) ICODEl will contain the equipment code associated with the 
specified FORTRAN UNIT if IFLAG»0. 
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(2) IC0DE2 will contain the FILE MODE if IFLAG=0» 

(3) IFLAG will = 0 if the file associated with the specified 
FORTRAN UNIT is a mass storage file that is currently 
assigned. Otherwise IFLAG=1. Note: A tape file fails 
anr* sets IFLAG-1. (See STATUS) 

SPECIAL NOTES 

1* This subroutine is very machine dependent and should either be 

replaced or eliminated. This routine is used to avoid requesting 

a file which is already assigned. 
2. ICODEl and IC0DE2 are never used, but are included to maintain a 

calling sequence similar to STATUS, the subroutine which serves 

an identical purpose for tape files. 
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SUBROUTINE IDENTIFICATION 



Name 



DREAD (Disk Read of FORTRAN Print) 



Language 



1100 Assembler 



Date 



Oct 73 



Progr amine r 



Weissmuller 



FUNCTION 

DREAD will read a FORTRAN Written ptlnt fil^ from mass storage. 
This subroutine is used primarily for reading Reports written to 
mass storage by the EXTRCT program. See TREAD for a similar function 
on tape files. 
ENTRY POINTS 

1. DREAD 

2 . REWINM 
CALLING SEQUENCES 

1. CALL DREAD(NWORDS,LINE,JSEQ,$NEW,$EOF) 



a* Inputs 

(1) NWORDS is for output only 

(2) LINE is a 22 word array for output only 

(3) JSEQ is for output only 

(A) NEW is thm FORTRAN statement number to jump to if a new 

report sentinel is read 
(5) EOF is the FORTRAN statement number lo jump to if an end 

of file is encountered in an attempt to read the next line 
b. Outputs 

(1) NWORDS is a binary integer which is the number of words in 
the print image array LINE 
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(2) LINE contains the next print line read. It has a maximum 
length of 22 words and may be printed thusly: 

WRITE(6,100) (LINE(I),I=1,NW0RDS) 
100 FORMAT ( 2 2A6) 

(3) JSEQ is a binary integer which is set equal to the index 
number of the current Report being read. This value is 
set only when the $NEW return is used. 

2. CALL REWINM 

a. Inputs - None 

b. Outputs 

(1) The print image file read by DREAD is rewound 
SPECIAL NOTES 

1. This is a very machine dependent subroutine and should either be 
replaced or eliminated. The primary function of this subroutine is 
to read print Images from mass storage and in particular, print 
images in Report File Format. [Report File Format simply means 
that individual reports are preceded by a sentinel of the form 
•BEGIN REPORT', N where N is a binary integer written out In 1A6 
format. ] 

2. Both DREAD and TREAD assume FORTRAN UNIT 28 is the print Image file. 
This association must be established prior to calling either subroutine. 
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SUBROUTINE IDENTIFICATION 



Name 



ERII (Executive Request to Interactivity Interrupt) 



Language 



1100 Assembler 



Date 



May 74 



Programmer 



Rogers 



FUNCTION 



ERII provides a method by which operators may query the program as 
to its name and/or status. This subroutine sets up a message buffer 
and a separate activity which the operators may interrogate. 
ENTRY POINTS 

1. ERII 

2. ERIIX 
CALLING SEQUENCE 

1. CALL ERII (ISW, NWORDS, MESAGE, IFLAG) 
a. Inputs 



(1) ISW is a FIELDATA "P" or "L" which sets a program switch 
to either Print all operator responses or only enter them 
into the I-og. Basically a "P" is used for interactive 
runs and a "L" is used for batch runs. All standard 
CODAP programs are designed for batch runs. 

(2) NWORDS is a binary integer indicating the number of words 
to be printed from MESAGE. Note: Since this call is only 
done once» NWORDS should be large enough to accommodate 
the longest message to be written. 

(3) MESAGE is an array of at least NWORDS which contains the 
message to be displayed for the operators. ERII alw^s 
picks up the current contents of MESAGE, so MESAGE m^ be 
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changed at any time in the main program to update the 
status. 

(4) IFLAG is for output only, 
b. Output 

(1) If the operator solicits ERII, the current contents of 
MESAGE will be displayed on the console screen. To solicit 
ERII, the operator must type in: 

II rrrrrr X, 

where "II" is the interactivity interrupt command for 
EXEC 8, rrrrrr is a 1 to 6 character run identification code 
and X is an operator response. X may be "P", "C" or "M". 
The "P" will cause MESAGE to be printed, "C" will set IFLAG 
to a non-zero value, and "M" will solicit and transmit a 
message from the operator to the executing program. 

(2) For the OVRLAP and GROUP programs, IFLAG is used to force 
checkpoints prior to the normally scheduled time. These 
programs set the IFLAG variable to zero and every time 
IFLAG is found to be non-zero, a checkpoint is taken. 
IFLAG is set to a non-zero value only if the operator enters 
a response that begins with a "C". 

CALL ERIIX 

a. Inputs - None 

b . Outputs 

(1) The separate activity established by the call to ERII is 
halted. This must be done in order to avoid an abnormal 
termination of the run* 

56 

CI 



ERII-3 



SPECIAL NOTES 

1. This subroutine is very, very machine dependent and its sole function 
is to allow program - operator interaction. In many installations 
this practice is highly discouraged. ERII may be retiwved from the 
system with very little difficulty and no ill effects will arise. 
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SUBROUTINE IDENTIFICATION 

Name ERTRAN (FORTR^\N V - EXEC 8 Interface) 

Language 1100 Assembler 

Date 

Programroer UNIVAC 
FUNCTION 

.ERTRAN is a FORTRi\N V - EXEC 8 Interface subroutine which allows access 
to system information snd processing capabilities. This is a UNIVAC sub- 
routine 'and no symbolic coding is available. This write-up is included 
for reference only. 
ENTRY POINTS 

1. ERTRAN (Subroutine Call) 

2. NERTRN (Function: returns I/O status word) 
CALLING SEQUENCES FOR COMMON USAGES 

1. CALL ERTRAN (2) 

a. Inputs 

(1) Binary integer number 2. 

b . Output 

(1) The run takes an error termination. 

Note: This calling sequence is used only after an 
unrecoverable error has been detected. 

2. CALL ERTRAN (6, IMAGE) 
a. Inputs 

(1) Binary integer number 6. 

(2) An array, IMAGE, which contains a valid EXEC 8 control 
card image which ends with the sequence "V-l*"- See attach- 
ment for valid FJCEC 8 control statement* ^rom ERTRAN. 
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b. Output 

(1) EXEC 8 performs the requested action, OR 

(2) Run aborts If requested action was not possible. 
3. lOERR = NERTRN (6, IMAGE) 

a. Inputs 

(1) Binary Integer number 6. 

(2) IMAGE Is an array containing a valid EXEC 8 control card 
Image which ends with "^.K". Normally In this usage, IMAGE 
contains a request to assign a file. 

(3) lOERR Is for output only, 

b. Outputa 

(1) Either the request action is completed and lOERR « 0, OR 

(2) lOERR is set equal to the error status word or zero. 
Note: This Calling sequence is used In the subroutine 
GETFIL. 

4, CALL ERTRAN (9, IDATE, ITIME) 

a. Inputs 

(1) Binary integer number 9, 

(2) IDATE Is for output only, 

(3) ITIME Is for output only. 

b. Outputs 

(1) IDATE contains the current date In FIELDATA in for form 
MMDDTi', 

(2) ITIME contains the current time in FIELDATA in the form 
HHMMSS. 
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Example: If called at 7:52 p,m, and 14 seconds, on 

August 19, 1974, then 

IDATE « "081974" and 

ITI>IE « "195214" 
This calling sequence is used in the subroutine DATETM, 

SPECIAL NOTES 

1. This subroutine is obviously very machine dependent. Callii g 

sequences 1 and 4 are rather trivial and may be easily duplicated 
or removed. Calling sequences 2 and 3 however, are crucial to 
the file manipulation subroutines (SETUP, SETUP6, and SETUP9). 
If the calling sequences 2 and 3 cannot be simulated, file assign- 
ments and their associations with the proper FORTRAN UNITS may be 
forced directly onto the user of each individual program. In that 
event, program documentation will have to be augmented. 
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3.4.6. ERTRAN EXECUTIVE REQUEST ROUTINE 

■ Purpose 

ERTRAN routine »Mows the FORTRAN programmer to reference some of the executive request fuiKtions. namely 
ABORTS (abort run). ERRS (error return). EXITS (normal exit). CSFS (generate control statement). SETCS (set 
condition word). CON OS (retrieve condition word), and DATES (request date and time) The executive requests are 
described in UNIVAC 1100 Multi-Processor System Ofjer^ting System, EXEC 8 Programmor Reference. UP 4144 
(current version). 

■ FORTRAN V Reference 

ERTRAN may be called by CALL ERTRAN (args) or referenced as a function by I NERTRN (args). If the function 
reference is used, the function value consists of the error or status information or lero if no error status is provided. 

The r«fererKe has three forms 

ERTRAN(k) for k = 1.2. or 3 

ERTRAN(k. ARG1) for k » 6. 7. or 8 

ERTRAN(k. ARG1. ARG2) for k ^ 9. where ARG1 and ARG2 represent (INTEGER) type v^iables. and k determines 
the executive request function. 

S Assembler Language Reference 

ERTRAN cannot be referenced by the assemUer language programmer; however, each of the executive request 
functions can be referenced directly in assembler language 

■ Routines Referenced 

MEPOf. nv way of entry points NERRS and FIELDS and executive request functions ABORTS. ERRS. EXITS. CSFS. 
SL res. CONDS. DATES, and PRINTl 

■ Description 

If k = 1. the executive request function ABORTS is referenced. Ail current activities are terminated and the run is 
terminated in an abort condition. 

If k = 2. the executive request function ERRS is referenced. The Err Mode condition is set. If the programmer has 
established an Err Mode routine, control will be returned to it. Otherwise, standard Err Mode action will occur 
terminating the run. 
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If k - 3. the executive request function EXIT$ is referenced. The rout-ne provides normal program termination, 
k = 4 and H - 5 are iM«>9al.. 

If k = 6. the executive request function CSF$ is referenced. The routine provides the us^st with a means of submitting 
an executive control statement image (ARG1) for interpretation and processing. The image submitted must be an array 
or a Hollerith field containing or>«; of the control statements listed below. The control statement must not be longer 
than dO charKters and may be terminated by the character sequerKe: blank, period, blank. 





Add to run stream 


@ASG 


Assign a file 


€^RKPT 


Breakpoint symbiont oi^tput files 


©CAT 


Catalog a file 


^KPT 


Produce check point dump of this run 


6>FREE 


Oeassign a file 


©LOG 


Message to log a file 


©MODE 


Set mode arxl/or noise constant for tape file 


©QUAL 


File qualification 


©RSTRT 


Restart run whose check point dump was saved by ©CKPT 


©START 


Schedule an independent run 


©SYM 


Queue files 


©USE 


Associate internal to external file name 



If k ^ 7, the executive request function SETC$ is referer>ced. The routine places (sets) the contents of the lower third 
(bits 11 00) of ARG1 in the corresponding third of the run condition word. The lower two thirds of the run condition 
word is used as a flag which can be either tested by the control statertent ©TEST or retrieved by the FORTRAN call 
CALL ERTRAN (8. ARG1) and then tested. 

If k - 8. the executive request function CONOS is referenced. The routine retrieves the condition word and makes it 
available to the user in ARGl. 

If k - 9. the executive request f uncttori OATE$ is referenced. The routine suptilies the user .vith the current date and 
time in ARGl and ARG2 respectively. The date in ARGl is in the format MMODW where MM represents the month 
(0M2). DO the day (01-31). and YY the last two digits of the year (00-%). The time in ARG2 is in the format 
HHMMSS where HH represents the hours (00-24). MM the minutes (00-60). and SS the seconds (00-60). 

If k is negative or greater than 9. error termination results. Error termination also results when the CALL 
ERTRAN(arg) is used and the status word is negative. When the I * NERTRN (arg) function is used, error termination 
will not take place, based on the status of the operation. ERTRAN has 97 instructions and 70 data words for a total 
main storage r#<^irement of 167 words. 
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SUBROUTINE IDKNTIFI(,ATlON 



Name 



FACRKJ (Facility rejection messages) 



Language 



UOO Assembler 



Date 



Oct 73 



Progr., mer 



Blakley 



FUNCTION 



FACHf?J translates the EXEC 8 I/O status word into appropriate error 
messages. The I/O status word is a 36 bit word in which each bit denotes 
a particular error ci>ndition. 
blNTRY POINTS 

U FACREJ 
CALLING SKQIENCR 

1. CALL FACRKJ (lOKRR) 



a. Inputs 

(1) IDKRR is Lhe EXEC 8 I/O status word returned by an I/O 
opt ration. 

b. (Xitputs 

(1) A printed list of error messages from the I/O operation. 



Til is subroutine is extremely machine dependent. If the user's 
installation has sufficient diagnostics prov Jed by the system, this 
subroutine is completely useless. It may be dropped from the system 
with no ill side affects. 



SPECIAL 



NOTES 
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SUBROUTINE IDENTIFICATTON 

Name FLD (Extract a Field of Bits) , 

Language 1100 Assembler 

Date 

Programmer UN I VAC 
FUNCTION 

FLD is a UNIVAC function in FORTRAN V which allows access to any 
string of bits within a single 36 bit computer word. This function 
is used to extract the "minutes" field out of a word containing the 
time in HIIMMSS format. 

ENTRY POINTS 

1. FLD (Function: returns an integer value) 

CALLING SEQUENCE 

1. IVAL - FLD(IBIT,NBITS,IWORD) 
a. Inputs 

(1) IBIT is a binary integer in the range 0 to 35 which 
identifies the first bit of the string to be extracted. 
Bits are counted from left (0) to right (35) unless 
overidden by COMPILER (FLD=R) statement which reverses 
the sequence. 

(2) NBTTS is a binary integer in the range 1 to 36 which 
denotes the number of bits in the string to be extracted. 

(3) IWORD is an integer, real, logical, or typeless expression 
from which the string is to be extracted. 

(4) IVAL is output onlv. 
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b. Outputs 

(1) IVALwill contain the extracted field right adjusted 
with leading zeroes. If "VAL" rather than "IVAL" were 
used, the resulting binary integer represented by the 
extracted string would be converted to floating point 
notation then stored in VAI>. 

SPECIAL NOTES 

1. Even though this is an intrinsic FORTRAN V function it could 
easily be replaced by an assembler function at the user's 
installation. Note, however, FLD may be used on the left side of 
an equals sign in FORTRAI^ V, and this is probably not allowed in 
other FORTRANs. Minor reprograianing could remove such references 
if they occur. 

2. If IBIT or NBITS above are not in the allowable range highly 
erratic results will occur. The statement COMPILER (FLD=ABS) is 
used to force these arguments to be positive values, as all 
negative numbers are not in the acc-spted range. 
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SrBRt>lTTNK inKNTl KlfATlON 



Name 



FMTCFN (FORI RAN Format Generator) 



Language 



FORTRAN V 



Date 



Apr 73 



Programmer Stacey/Barton 
Fl^NCTION 

F.ITGEN reails CODAP Format Cards (see attachment) and generates FORTRAN 

formats which are used to read raw data card images. 
PNTKY PC INI S 

1. FMTGKX 
CALLING SKOtTNCF 

1. CALL FMTGFN (LOPT) 
a* Inputs 



(1) LOPT is a binary integer option flag which determines the tvpe 
of field specified for Task variables (T) and blanks (M) • 
LOPT = 0 produces an A format for T*s and an X format for Ii*s. 
LOPT = 1 produces an I format for T*s and an X format for ¥*s. 
LOPT = 2 produces an A format for both T's and V's; this enables 
the transfer of data from card columns corresponding to blanks 
on the Format Cards » 

(2) The number o*" CODAP Format Cards must be specified in the 
second- from- last word of the named COft>fON area* 

(1) Tlie proper Format Card deck must be provided (see attachment). 
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b. Outputs 

(1) Nost of the data and control information are passed in a 
named COtMON area het^eev. -MruKN and -.l^ -aH in^. r>ro;r^. , 
This S504-word area contains nrrays tor cne ouipit .m' cht 
generated FORTRAN format, ta:^ .es for r h'^xv.' J' v it c> i - 
Task, Historv, and .hecV L^z^^ the -ctrt^ C: . k 1... - ic , 

tables for pointers to input ^arJ b.. • i Ui.- le:, . i. : " 

Item counts, ind eue-u'ord counts of ' , Mir.-< rv. an.! i 

Items lomatted, OK 
(2) Format Card errors will cause cne tL..i co aboVL iiC<.r 

diagnostic. 

SPECIAL NOTES 

1. This subroutine is tailored exprcsslv for SKTCHK and IN^STH, the rroi;rans 
through whicb data enter the CODAP system. 

2. F>!n;EN requires the subroutines ERTRAN. CP! and TNSfPT, but is subiect 
to no more than the same restrictions as are these subroutines, in 
particular, a 6-character word is assuwd. 
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FORMAT CARDS 

These cards describe the SETCHKed raw data file. There must be a format 
card to describe each raw data card within a case. If a case consists 



of 20 raw data cards, then 20 format cards are required. There are no 
restrictions on the layout of raw data cards or format cards except that 
each raw data card must contain a control number in columns 1-4 and each 
format card must contain *C. in columns 1-4. Raw data fields are defined 
by the following format characters: 

C Defines the beginniag of the case control number. This 



ff 



character must appear in column 1 of each format card. 



H 



Defines the beginning of a history variable. 



T 



Defines the beginning of a task variable. 



Defines a continuation of any of the above. A task 



variable may occupy no more than 6 columns (T 



The length of task variables (in terms of columns) must 



remain constant for all tasks. 



A blank column defines a skip. 



other 



Any other character is defined as a *check* character. 



A checi character must have a matching character in the 



corresponding column of the raw data. A maximum of 300 



* check* characters is allowed. 
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FOR>fAT-l 



SUBROUTINE IDKNTI KICATION 



Name 



FORMAT (Retrieve Print Format) 



Language 



FORTRAN V 



Date 



Oct 73 



Programmer Weissmiiller 
FUNCTION 

FORMAT decodes a print format from the Variable Dictionary on the front 

of a History or KPATH file. This subroutine also returns flags indicating 

the cype and length of variables. 
ENTRY POINTS 

I . FOR>!AT 
CALLING SEOUENCE 

1 . CALL FORMAT ( LD I CT (1 4 , N) , I MAT , NCH AR , I TYP E , I FLD I , I FLn2 , $ ERR) 



(1) LDICT is a two dimensional arrav which contains the Variable 
Dictionary entries. There are 15 words per entry and up to 
16 entries per block. The format is contained in the last 
two words of the entry (words 14 and 15). N is number of 
the entry within the current block. 

(2) IMAT, NCHAR, ITYPE, IFLDl, dnd IFLb2 are for output only. 

(3) ERR is the FORTRAN statement number to jump to if the 
dictionary entry does not contain a valid format. 



(1) IMAT is a two word arrav which contains the format in FIELDATA, 
left adiusted with all extra blanks omitted. OR IMAT contains 
• NO FORMAT ' or ' INVALID ' if the error is used. 



a. 



Innuts 



Outputs 
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(2) NCHAR is a binnrv iiUegor which is a count of the non-blank 
characters in TMAT. 

(3) ITYPF is: 

(a) -I if the variable is alphanumeric ("A" format) 

(b) 0 if the variable is binary integer ("T" format) 

(c) +1 if the variable is floating point ("F" format) 

(4) If ITYPE is: 

(a) -1, IFLDl is a binarv integer indicating a repetition 

^'actor for a background variable (e.g. 1 for 1A3) . 
TFL02 is a binary integer indicating the number o^' 
alphanumeric characters to be used (e.g. 3 for 1A3). 

(b) 0, IFLDl is a binary integer indicating the number of 

decimal digits required to orint the maximum value 
(e.g. 7 for 17). 
IFLD2 is not used. 

(c) +1, IFLDl is a binary integer indicating the maximum 

number of spaces required to print the value of the 
variable. This includes 'V' or and a decimal 
point (e.g. 10 for F10.3). 

IFLD2 is a binary integer indicating the number of 
decimal digit:s to print following the decimal point 
(e.g. 3 for F10.3). 

SPKCTAL NOTKS 

1. This subroutine uses the FORTRAN V FLD function, negative DO LOOP 
indexing and LNXOnHS and PKCOOKS. For those reasons it is rather 
machine dcnonc^ent. It nav be easilv replaced bv an assembly subroutine. 
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FORMAT expects the format to denict a single word variable and hence 
will return an invalid response to variables like SSAN (A6,A3) or 
ORGANIZATION (10A6,A4). 
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SUBROUTINT*. IDENTIFICATION 

Name F0RM2X (Formats for DIST2X) 

Language FORTRAN V 

Date Dec 73 

Programmer Barton 
FUNCTION 

F0R>t2X encodes a format for DIST2X output according to parameters set by 
that program. 

edjtry points 

1 . F0RM2X 
CALLING SEQUENCE 

1. CAI.L F0RM2X (KX,LY, FIRST, MAT) 

a. Inputs 

(1) KX,LY and FIRST are program-generated parameters which control 
Computed GO TO chains within the subroutine. 

(2) MAT is for output only. 

b. Outputs 

(1) MAT is an array for the ENCODE-d FORTRAN format. 
SPECIAL NOTES 

1. This subroutine is an expedient resulting from the conversion of DldT2X 

from the IBM 70A0 to the UNIVAC 1108. IBM supported the use of a FORTRAN 

statement number in the WRITE format parameter which led, via inline 

Computed GO TO chains, to the appropriate fixed FORMAT statement. Since 

UNIVAC does not have this capability, but allous variable formats by 

ENCODE-ing the specifications into arrays, F0RM2X was written to use the 

same parameter values to control the contents of the words in ENCODE 

lists. Obviously, F0Rfl2X is highly specialized, but reduces the machine 

dependence of DIST2X. 
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SUBROUTINE IDENTIFICATION 



Name 



FREDEV (Free Device) 



Language 



1100 Assembler 



Date 



Nov 73 



Programmer 



Weissmul ler 



FUNCTION 

FREDEV erases FORTRAN V's record of a unit assignment. For each FORTRAN 
unit (0 thru 30) there is an entry in a table (NTAB$) which associates 
the FORTRAN unit with the external file. If the external file is 
de-assigned using ERTRAN during a FORTARN program, FORTRAN is not 
aware of it and it attempts to rewind the file at the end of the program. 
This causes an abnormal termination. This subroiit"ine, then, erases the 
NTAB$ entrv, thereby informing FORTRAN the device is no longer assigned 
and should not be rewound. 

ENTRY POINTS 

1. FREDEV 

CALLING SEQUENCE 

i. CALL FREDEV (lUNIT) 



a. Inputs 

(1) lUNIT is a binary integer representing the FORTRAN unit to 
be released. 

b. Outputs 

(1) FORTRAN'S record of the unit is erased. 



SPECIAL, NOTES 

1. This subroutine is extremely machine dependent but mav not be needed 



at all in other FORTRAN'S. It's only usage is in the subroutine FREE. 
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SUBROUTINE IDENTIFICATION 



Name 



FREE (Free a P'ile) 



Language 



FORTRAN V 



Date 



Nov 73 



Programmer WeissmuIIer 
FUNCTION 

FREE will release a file and its associated device so that they may be 

used by other runs. This is most important with tape files as the tape 

drives are at a premimum. 
ENTRY POINTS 

1. FREE 
CALLING SEQUENCE 

1. CALL FREE(IUNIT) 

a. Inputs 

(1) [UNIT is a binary integer representing the FORTRAN unit 
to be released. 

b. Outputs 

(1) The FORTRAN unit is freed and the device is released. (SEE 
FREDEV) 

SPECIAL NOTES 

1. This subroutine is machine dependent to the extent that it uses 

ERTRAfJ to interact with the system to release a file and its device. 
This ought not be di" cult to program in assembler if necessary. 
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SUBROUTINE IDENTIFICATION 

Name FREES (Free a File, but Save the Tape Drive) 

r>anguage FORTRAN V 

Date Nov 73 

Programmer Welssmuller 
FUNCTION 

FREES will release a tape file hut retain its associated drive so that it 

may be used by a subsequent assignment. This is very important as the 

tape drives are at a premimum. 
ENTRY POINTS 

I. FREES 
CALLING SEQUENCE 

I. CALL FREES (lUNIT) 

a. Inputs 

(I) lUNIT is abinary integer representing the FORTRAN unit to 
be released. 

b. Outputs 

(I) Tl\e FORTRAN unit is freed and the drive is retained. 
SPECIAL NOTES 

1. This subroutine is machine dependent to the extent that it uses 
ERTRAN to interact with the system to release a file and not its 

drive. 
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SUBROUTINE TDKNTTFICATION 

N a n» FSORT ( FORTRAN- EXKC 8 SORT Routine) 

Lan^ua^ e FORTRAN V 

Date Oct 73 

Programmer Welssmuller 
FUNCTION 

FSORT is a FORTRAN subroutine which is called to sort all records on 
a given FORTRAN unit. This routine calls LINK and TABL3 which are 
routines used to access the UNIVAC Sort Package. Records are read 
from the specified FORTRAN unit, passed to the sort package, then 
rewritten to the FORTRAN unit in the sorted sequence. 
ENTRY POINTS 

1. FSORT 

2. FS0RT2 
CALLING SEQUENCE 

1. CALL FSORT (IUNTT,NWORDS, ITYPE, lORDER) 
a« Inputs 

(1) lUNIT is a binary integer denoting the FORTRAN unit. 

(2) NWORDS is a binary integer indicating the maxlu.um number 
of words in the largest record to be sorted. 

(3) ITYPE is a binary integer eoual to either 

0 if an alphanumeric sort is desired or a 

1 if a numeric sort Is required. 
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(4) lORDF.R is a binary integer equal to either 

0 if ascending sequence is desired, or 

1 if descending sequence is required. 
Outputs 

(1) All records on FORTRAN unit lUNIT will be in the requested 
seauence based on the first word of the record. 
2. CAU. FS0RT2 (lUNIT.l^WORDS, ITYPE, IORDER,.TTYPE,,TORDER) 

a. Inputs 

(1) Same as above, plus 

(2) JTYPE is a binary integer equal to either 

0 if an alphanumeric sort is needed on th^ second variable, or 

1 if a numeric sort is needed on the second variable. 

(3) JORDER is a binary integer equal to either 

0 if ascending sequence is desired for the secondary sort, or 

1 if descending sequence is desired on the secondary sort. 

b. Outputs 

(1) All records on FORTRAN unit lUNIT will be in the requested 
sequences based on the first two words of the records. 

SPECIAL NOTES 

1. This is a specialized subroutine which ought to be tc^laced by an 
interface to the user's installation sort package. 

2. Note: The FORTRAN unit must contain unformatted records in order 
to work nroperlv as full-word sort fields are assumed. 
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SUBROUTINE IDENTIFICATION 

Name GETFIL (Get a Tape File) 

Language FORTRAN V 

Date Oct 73 

Programmer Weissmuller 
FUNCTION 

GETFIL will repeatedly reissue any file assignment request passed to it. 
Only tape file assignments should be requested via this subroutine as it 
issues a message to the operators every two minutes which reads 
"WAITING ON TAPE DRIVE. AE" The assignment request is reissued every 
15 seconds until accepted or an error status other than "WAIT" is returned. 

ENTRY POINTS 
1. GETFIL 

CALLING SEQUENCE 

1. CALL GETFIL (IMAGE) 

a. Inputs 

(1) IMAGE is an array which contains a valid file assignment 
con t rol s t a temen t . 

b. Outputs 

(1) Either the tape file is assigned, jor 

(2) The run terminates with diagnostics. 
SPECIAL NOTES 

1. This subroutine is rather machine dependent but is used strictly 
within the file assignment package. As the file assignment package 
is apt to be entirely rewritten at each installation this routine 
is not very significant. 
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Same GFTVAS (Get a Mass Storage File) 

Languag*> FORTRAN V 
Date Oct 73 

Pri^grnrne r We i s smu 1 1 e r 

rFT>«AS will repeatedly reissue anv file assignment request oassed to it. 
This subroutine will issue the request and if a "WATT" status is returned, 
30 seconds later, tlie request vill he reissued. This is repeated until 
e'ther the request is accepted or until an error status other than "WATT" 
is retMrned. 

F-Nrh*Y POINTS 
1 . HFT^'AS 

CALLING SKOrFNCE 

U CA.Ll OIT^^AS (TMAGF) 
a. Tnnuts 

(1) IMA'':K is an arrav winch contains a valid file assignnent 

control stalenent 
(^u I rats 

fl) F.itbor the file assij^ned, or 

f2) 'Ihf» run terminate s v ' th diagnostic^. 

!, Tiis suhn. JM-ne is ratlicr narhine depetulfnt hni is used strictlv 

within the file assignment p;ifK>gn. As the file n^<\yimi packaeo 
is apt t«> he entirely rf'written at each i n,'> I 1 1 at i rri tiiis routine 
is not vf'^'v significant. 



79 

ERIC j.^^ 



GETPCD-1 



SUBROI'TINfc IDENTIFICATION 

Nan» OETPCD (net Program Control Table Data) 

Languaj^e ijoo Assembler 

Date M^v 7^ 

Progranuner Weissmuller 
FUNCTION 

CETPCD will retrieve information from the PCT (Program Control Table). 

This table contains information about the run-id, the account being 

charged, and the running time. This routine, though elegant, is by 

no neans essential. 
ENTRY POINTS 

1. GETPCIX 
CALLING SEQUENCE 

1. CALL GETPCD(IDEC,IVAL) 

a. Inputs 

(1) IDEC is a binarv integer (0-240) indicating which word of 
the PCT is to be cooted into IVAL. 

(2) IVAL is for output only. 

b. Output 

(1) IVAL will contain the contents of the appropriate word of 
the PCT. 

SPECTAL NOTES 

1. This is an extremely machine dependent subroutine but it may he deleted 
with no ill side-effects. Its primary function was to provide 
independent time estimates for individual programs. 
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SrBROlTlNl\ TDKNTIFICATION 

Name OKTPCT (Get Program Coatrol Table Data) 

Language FORTRAN V 

Date Mav 7^ 

Programmer We i s smii I le r 
niNCTION 

CKTPCT will retrieve information from the PCX (Program Control Table). 

Tins table contains information about the run-id, the account being 

charged, and the running time. This routine, though elegant, is bv 

no means essential. 
ENTRY POINTS 

1. CETPCT 
CALLING SEOUENCE 

1. CALL GETPCT (IOCT,IVAL) 

a. Inottts 

(1) lOCT is a octal integer (0-0360) indicating which word of 
the PCT is to be copied into IVAL. 

(2) IVAL is for output only. 

b. Cutout 

(1) IVAL will contain the contents of the approoriate word 
of the PC^. 

SPECIAL NOTES 

I. This Is an extremely machine dependent F^oroutine, but it mav be 
deleted with no ill side-effects. Its orimary function was to 
nrovide Independent time estimates for individual programs. 
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4*i*3*l Dm GlMMnt PCT (Baaad On '^t«1 27*0) 

••• and «• w«U at the Reaatved Word ror U«er ara axplalnad mt tha end of tha labU. 
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SUBRCWINK IIiKNTIF CATION 

Nane H2ACNn (AscenJing Sort on Right Half Word) 

Language FORTRAN V 

Pete Mar 74 

Programmer Barton 
FUNCTION 

H2ACNn sorts an array into ascending sequence on the right half (H2) of each 

word. 
KNTRY POINTS 

1. H2ACW 
CALLING SEOUrlNCK 

1. CALL H2ACN'D (NNDUP.LPACK) 

a. Inputs 

(1) NNDUP is the binary integer number cf words in the arrjy to 
be sorted. 

LPACK is the array (name). 

b. 'Outputs 

(1) The words are reordered such that the values of the right 
halves of the words in subscript order gro»* larger. 

SPECIAL NOTES 

1. This .subroutine performs a straightforward bubble sort, using the 
FORTR.^>N FID Function for halfword access. 

2. H2\CN0 is called by OUTRAN. 
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SUBROirriNE IDKNTIFICATION 



Name 



H2S0RT (Descending Sort on Right Half Word) 



Language 



FORTRAN V 



Date 



Dec 73 



Programmer Barton 
FUNCTION 

K2S0RT sorts an array into descending sequence on the right half (H2) of 

each word. 
ENTRY POINTS 

1. H2S0RT 
CALLING SEQUENCE 

1. CALL H2S0RT (NRESP.LPACK) 

a. Inputs 

(1) NRESP is the binarv Integer number of words in the arrav to be 
sorted, 

(2) ^PACK is the arrav (name). 

b. Outputs 

(1) The words are reordered sucn that the values of the right 
halves of the words in subscript order j row smaller. 

SPECIAL NOTES 

1. This subroutine performs a straightforward bubble sort, using the 
FORTRAN FLD Function for halfword access. 

2. H2S0RT is called by JOBIND. 
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SUBROUTINE IDENTIFICATION 



Name 



INSERT (Pack Characters Into Next Arra\ Locations) 



Lang^uage 



FORTRAN V 



Date 



Jun 73 



Programmer 



S tac 2y /Wei ssmu 1 ler 



FUNCTION 

INSERT packs a given number of the leftmost characters from a word 

Into the next available character positions of a COMMON array up to 

1000 words long. 
ENTRY POINTS 

1. INSERT 
CALLING SEQUENCE 

1. CALL INSERT (KTFW,KTFC^LFW,NFC) 
a» Inputs 

(1) KTFW Is the Integer subscript of the next COMMON array 
lotatlon* 

(2) KTFC Is the Integer count of characters filled (0-5) 
in that location. 

(3) LFW contains the characters to be Inserted, left justified. 

(4) NFC Is the Integer count of characters to be Inserted (1-6). 
b. Outputs 

(1) The specified characters are appended to the COMMON array, and 

(2) KTFVf and KTFC are updated, OR 

(3) If KTFJ becomes greater than 1000, the run aborts after a 
dlaguostlc. 
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SPECIAL NOTES 

1. This subroutine Is highly specialized for use by CPI and FMTGEN to 
create FORTRAN formats from CODA? Format Cards. As a typical 
example, suppose words 6 and 7 of the COMMON (format) array contained 
the string * 12XVW KVKKl^l^* and LFW contained '.ISiai^* (so that 
KTFW = 6, KTFC = 3, and NFC = 5). After a call to INSERT, KTFW = 7, 
KTFC = 2, and the two array words contain the string *12X,13 12^]^W\ 

2. The subroutine Is not machine dependent, except that a 6-character 
word Is assumed, so little or no conversion Is required. 
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SUBROUTINE IDENTIFICATION 



Name 



IKANF (Initialize Random Number Function) 



Language 



FORTRAN V 



Date 



Feb 74 



Programmer Welssmuller 
FUNCTION 

IRANF has two entry points. The first entry point selects and prints 
a seed for the random number function, RANF. The selected seed Is a 
modification of the FIELDATA date and time. The second entry point 
Is called by RANF and keeps track of updating the seed from IRANF. 
ENTRY POINTS 

1. IRANF 

2. GETRAN 
CALLING SEQUENCE 

1. CALL IRANF 

a. Inputs - None 

b. Outputs 

(1) A seed Is generated for RANF and GETRAN and, 

(2) The value of the seed Is printed In c ^.tal format. 

2. CALL GETRAN (ANS) 
a. Inputs 



(1) ANS is for output only, 
b. Outputs 

(1) ANS is a floating point random number between 0«0 and 1.0. 



SPECIAL NOTES 

!• Other than using ERTRAN, this is a rather standard FORTRAN subroutine. 
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SUBROUTINE IDENTIFICATION 



Name 



JDCOPY (Job Description File Copy) 



Language 



FORTRAN V 



Date 



Nov 73 



Programmer 



Weissmuller 



FUNCTION 

JDCOPY will copy che Job Description file from FORTRAN unit 27 onto unit 
25, Unit 25 will contain all previous Job Descriptions and will be 
positioned to receive additional descriptions. This routine Is called 
after CYCLES In SETUP9. 
ENTRY POINTS 

!• JDCOPY 
CALLING SEQUENCE 

!• CALL JDCOPY 
a* Inputs 

(1) None 
b* Outputs 

(1) A complete cooy of all Job Descriptions will be written onto 
unit 25, or 

(2) The run will error terminate on sequence error. 
SPECIAL NOTES 

1. This routine Is standard FORTRAN except for the PARAMETER statement 
for the variable dimensions which may easily be replaced. 

2. This routine appears only In SETUP9 which Is called from either JOBSPC 
or JOBGRP, as they are currently the only programs which can expand 
the Job Description file. 
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SUBROUTINE IDENTIFICATION 



Name 



JDEOF (Find Job Description File Mark) 



Language 



FORTRAN V 



Date 



Nov 73 



Programmer Weissmuller 
FUNCTION 

If two programs attempt to expand the Job Description file within a single 
run, the first program will call JDCOPY to form a new copy of the file and 
all subsequent programs will call JDEOF which should simply position the 
new Job Description to receive additional reports. Since JOBSPC and JOBGRP 
are the only two programs capable of calling JDEOF and they are rarely ever 
stacked into a single run, this subroutine is not adequately checked out. 

ENTRY POINTS 
1. JDEOF 

CALLING SEQUENCE 
1. CALL JDEOF 



a. Inputs 
(1) None 

b. Outputs 

(1) The new copy of the Job Description is rewound and read until 
a file mark is found, then backspaced over the file mark^ 



SPECIAL NOTES 

1. This subroutine is standard FORTRAN. 

2. The new copy of the Job Description file must be on FORTRAN unit 25. 
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SUBROUTINE IDENTIFICATI(»J 



Hmne 



LASCMP (Logical Alphanumeric String Comparison) 



Language 



FORTRAN V 



Date 



Jun 73 



Programmer Welssmuller 
FUNCTION 

LASCMP compares a string of FIELDATA characters against a range of 
FIELDATA characters. If the test string is within the range, the 
function returns a 1, otherwise a zero Is returned. 
ENTRY POINTS 

1. LASCMP (Functions returns binary integer 1 or 0) 

CALLING SEQUENCE 

1. ISW - LASCMP (ITEST, LOW, IHI.NWORDS) 

a. Inputs 



(1) ITEST is a FIELDATA character string NWORDS long. 

(2) LOW is a FIELDATA character string NWORDS long. 

(3) IHI is a FIELDATA character s^rlng NWORDS long. 

(A) NWOPDS is a binary Integer giving the length in words of all 
arrays. 

(5) ISW is for output only, 
b. Outputs 

(1) ISW « 1 if the string ITEST is greater or equal to LOW and 



less than or equal to IHI in che FIELDATA collating sequence. 
ISW « 0 if ITEST is not in that range. 
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SPECIAL NOTES 

1. This version of LAS(>fP Is a FORTRAN V rewrite of an IBM 7040 assembly 
language subroutine. Results are i ependent on the collating sequence 
of characters on the machine used* 

2. This subroutine uses the FORTRAN V FLD function on half-word 
boundaries to evaluate the alphanumeric ranges. 
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SUBROUTINE IDENTIFICATION 

Name LINK (FORTRAN V Linkage to UNIVAC Sort Package) 

Language 1100 Assembler 

Date 

Programiner UNIVAC 
FUNCTION 

LINK is a FORTRAN V - EXEC 8 Interface which allowa FORTRAN to directly 
call the UNIVAC Sort Package. This write-up and any symbolic listings 
are provided for reference only. 
ENTRY POINTS 

1. SBUILD (Called from TABL3 (entry « S0PEN3)) 

2. SRREL 

3. SSORT 

4. SRRET 
CALLING SEQUENCE 

1. CALL SRREL ( IMAGE, NWORDS) 
a. Inputs 

(1) IMAGE Is an array containing the record to be sorted. 

(2) NWORDS Is the length In words of the sort record, 
b* Outputs 

(1) This entry point releases one record at a time to the 

sort package, rio action Is taken until SSORT Is called* 

2. CALL SSORT 

a* Inputs - None 
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b* Outputs 

(1) All r^>cords which were passed via the SRREL entry are 

sorted In accord with the control Information established 
with S0PEN3. (See TABL3) Though the records are sorted 
upon return from this entrv point, they are not useable 
until retrieved via SRRET. 
3* CALL SRRET (I^GE,NW0RDS,$EOF) 
a* inputs 

(1) EOF Is the FORTRAN statement number to lump to If an end 
of file condition Is detected on the sorted file. 

(2) IMAGE and NWORDS are for output only, 
b* Outputs 

(1) Either, IMAGE will contain the next record from the sorted 
file, and 

(2) NWORDS will be the length in words of IMAGE, OR 

(3) Upon reaching an end-of-flle, control will jump to the 
FORTRAN statement number designated by EOF. 

SPECIAL NOTES 

1. This subroutine Is very machine dependent, but Its usage Is restricted 
to the subroutine FSORT. If FSORT Is rewritten for the user's 
installation, this routine and TABL3 will not be needed. 
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SUBROUTINE IDENTIFICATION 

Name LISORT (Sort Pointer Array into Ascending Sequence) 

Language FORTRAN V 

Date Jul 73 

Programmer Weissmuller 
FUNCTION 

LISORT accepts two arrays, an array of values and an array of pointers 
(from 1 to NWORDS) and reorders the pointer arrav into an ascending 
sequence based on the array of values. The array of values remains 
unchanged. 

ENTRY POINTS 
1. LISORT 

CALLING SEQUENCE 

1. CALL LISORT (NWORDS, ARRAY, IP OINT) 

a. Inputs 

(1) NWORDS is a binary integer indicating the number of words 
in the arrays ARRAY and IPOINT. 

(2) ARRAY is an array of floating point or binary integer values • 

(3) IPOINT is an array of binary integers in ascending sequence, 
usually 1 through NWORDS. 

b. Outputs 

(1) IPOINT will be re-sequenced such that the contents of 

iPOINTd) will be the subscript in ARRAY of the smallest 
val te in ARRAY. 

SPECIAL NOTES 

1. This subroutine is standard FORTRAN. 
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2, IPOINT may contain values such as 200 through 300 If only 
ARRAY(200) through ARRAY(300) are to be sorted. This technique 
Is used to sort tasks Independently from duties even though the 
values for both are In the same array In some programs. 

3. See LSORT for descending sequence. 
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SUBROUTINE IDENTIFICATION 

Nasi LSORT (Sort Pointer Array Into Descending Sequence) 

■l^"8"^gg FORTRAN V 
£2i£ May 73 

Programmer Welssmuller 
FUNCTION 

LSORT accepts two arrays, an array of values and an array of pointers 
(from 1 to NWORDS) and reorders the pointer array Into a descending 
sequence based on the art ay of values. The array of values remains 
unchanged, 
ENTRY POINTS 

1. LSORT 
CALLING SEQUENCE 

1. CALL LSORT (NWORDS, ARRAY, IPO INT) 
a* Inouts 

(1) NWORPS Is a binary Integer Indicating the number of words 
In the arrays ARRAY and IPOINT. 

(2) ARRAY Is an array of floating point or blnarv Integer values. 

(3) IPOINT Is an array of blnarv Integers In ascending sequence, 
usually 1 through NWORDS. 

b. Outputs 

(1) IPOINT will be re-sequenced such that the contents of 
IPOINT(l) will be the subscript In ARRAY of the largest 
value In ARRAY. 

SPECIAL NOTES 

1. This subroutine Is standard FORTRAN. 
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2. IPOINT may contain values such as 200 through 300 if onlv 
ARRAY(200) through ARRAY(300) are to be sorted. This technique is 
used to sort tasks independently from duties even though the 
values for both are in the same array in some programs. 

3. See LISORT for ascending sequence. 
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SUBROUTINE IDENTIFICATION 

Name MSKOPl (Mask Operations: Type 1) 

^"£"^■8^ FORTRAN V 

Date Oct 73 

Programmer Welssmuller 
FUNCTION 

MSKOPl is a spt of subroutines designed to handle several MASK arrays 
from a Job Description File. These MASK arrays have 1 bit for each 
case in a study* If a particular case is in this group , the corresponding 
bit is equal to 1» otherwise it is zero. The first three entry points 
are designed to create a mask array as is done in JOBGRP and JOBSPC. The 
fourth entry point is designed to use existing mask arrays. 
ENTRY POINTS 

1. ZERMSK 

2. SETMSK 

3. ERSMSK 

4. CHKMSK 
CALLING SEQUENCE 

1. CALL ZERMSK (NCASE,MASK,NWORDS) 
a. Inputs 

(1) NCASE is a binary integer which is a count of the number of 
cases in the study. 

(2) MASK is an avray to become a mask array. 

(3) NWORDS is for output only. 
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b. Outputs 

(1) NWORDS is a binary integer which is a count of the number 
of full 36 bit computer words required to contain the 
mask array for NCASE cases. Since the sign bit of the 
computer word is not used NWORDS » (NCASE + 34)/35 and 
truncated to the integer number. 

(2) MASK will contain zeroes in the first NWORDS locations, 
and is ready to receive a mask array. 

CALL SETMSK (ICASE,MASK) 

a. Inputs 

(1) ICASE is a binary integer denoting the sequence number of 
this case. (1 to NCASE) 

(2) MASK is an array which is being made into a mask array. 

b. Outputs 

(1) The bit position in MASK identifying case number ICASE is 
set to 1 signifying this case is a member of this grouo. 
CALL ERSMSK (ICASE, MASK) 

a. Inputs 

(1) ICASE is a binary integer denoting the sequence number of 
this case. (1 to NCASE) 

(2) MASK is a mask array. 

b. Outputs 

(1) The bit position in MASK identifying case number ICASE is 

set to 0 signifying this case is NOT a member of this group. 
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4* CALL CHKMSK (ICASE,MASK,$NOT) 

a. Inputs 

(1) ICASE Is a binary integer denoting the seqi^nce number of 
this case. (1 to NCASE). 

(2) MASK is an existing mask array. 

(3) NOT is a FORTRAN statement to jump to if the bit in MASK 
corresponding to ICASE is not equal 1. 

b. Outputs 

(1) Either, control will return to the statement following the 
calling sequence if ICASE is in the group in question, or 

(2) Control will pass to FORTRAN statement number NOT if ICASE 
is NOT in the group. 

SPECIAL NOTES 

1. This subroutine uses the FORTRAN V FLD function on the left of an 
equals sign and will have to be rewritten into the user's assembly 
language • 

2» While this subroutine may test or alter several mask arrays, MSK0P2 

is designed to access only one mask array. 
3. The COMPILER (FLD«ABS,R) reverses the bit counter in the FLD func«:ion 

from a left to right count (0-35) to a right to left count (35-0) 
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SUBROUTINE IDENTIFICATION 



Nane 



MSK0P2 (Mask Operations: Type 2) 



Language 



FORTRAN V 



Date 



Oct 73 



Pro^ragaoer Weissimiller 
FUNCT1<»« 

MSK0P2 is a set of subroutines designed to retrieve and use a single 
mask army from a Job Description File. 
ENTRY POINTS 

1. GETMSK 

2. GETMSM 

3. USEMSK 
CALLING SEQUENCE 

1. CALL GETMSK (ISEQ,IDl,ID2,MATRIX,$ERR) 
a. Inputs 



(1) ISEQ is a binary integer which is a unique identification 
number for each report or group. This nusiber is found in 
card colunms 76^60 of the Request card. 

(2) IDl and 102 together cOT^rise an 8 'racter internal 
identification code for all files under a given study. 
These two words are the first two words of the Ccmminications 
Region. 

(3) MATRIX is a 6 character identification code found in word 6 
of the Conniunications Region. MATRIX is blank if the input 
file is a History file and is equal to either *TASKK!(* or 
•TIMEHU* if a KPATH file is the input. 
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(4) ERR i8 the FORTRAN statement number in the calling program 
to imap to if the group identified as nuii^er ISEQ is not 
found or if IDl, ID2, or MATRIX fails to match the Job 
Description file used* 
b. Outputs 

(1) Either, the group's mask array is retrieved and ready to be 
used by USEMSK, C« 

(2) Control is passed to FORTRAN statement ERR« 

2. CALL GETOSMdSEQ, IDl, ID2, MATRIX, $ERR,NMD1, IDREPT, ITITLE) 
a* Inputs 

(1) Same as above « 

(2) NMEM, IDREPT, and ITITLE are for output only* 
b. Outputs 

(1) Same as above, plus 

(2) NMEM is a binary integer count of the nitmber of menders in 
the specified group* 

(3) IDREPT Is a 6 character FIELDATA identification of the 
requested group. 

(4) ITITLE Is an 8 word FIELDATA array which contains the title 
of the Report which first identified this group. 

3. CALL USEMSK (ICASE,$NOT) 
a. Inputs 

(1) ICASE is a binary integer which Is the sequence number of a 
case on either the History or KPATH file. 

(2) NOT Is a FORTRAN statement number to 1umo to if case number 
ICASE Is not In the groun specified In GETMSK or GETMSM. 
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b. 



Outputs 



(1) 



Either, control will return to the statement following the 



call to USEMSK if ICASE is in the group, OR 



(2) 



Control will jump to FORTRAN statement number NOT if ICASE 



is not in the group, 

SPECIAL NOTES 

1. This subroutine uses the FORTRAN V FLD function and a CO^fPILER 
directive to change the bit counter to a Right to Left count. 

2. This routine is limited to processing a single mask array at a time. 
For simultaneously using multiple MASKS see MSKOPl. 
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SUBROUTINE IDENTIFICATION 



Name 



NEXREL (Mount Next Reel) 



Language 



FORTRAN V 



Date 



Sep 74 



Programtner Welssmuller 
FUNCTION 

NEXREL will free the tape file currently assigned and associated with a 
specific FORTRAN unit, then assign another reel of a file to the same 
tape drive. 
ENTRY POINTS 

1. NEXREL 

2. NEXREM 
CALLING SEQUENCE 

1* CALL NEXREL (NAME.IUSE) 
a» Inputs 



(1) NAME is a three word array where words 1 & 2 are the filename 
in an A6,A4 -format and word 3 is the negative file cycle 
(backup number) in a lAl format. Word 3 » blank will assign 
cycle 0 (the most recent copy). All words are in FIELDATA. 

(2) lUSE is a binary integer representing the FORTRAN unit which 
is currently associated with a tape file to be freed. Also, 
the file specified by NAME above is to be mounted on the tape 
drive currently used by the file to be released or freed, then 
associated with this FORTRAN unit. 



(1) Either the tape reels on the physical tape drive are switched 
and the FORTRAN unit lUSE is associated with the file NAME, OR 



b. 



Outputs 
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(2) The run aborts due to an invalid NAhfE with the appropriate 
diagnostics • 
2. CALL NEXREM (NAME,IUSE) 
a» Inputs 

(1) The same as for NEXREL. 
b* Outputs 

(1) The same as for NEXREL except the new file assigned will be 
an "M" or 3- reel cycled file. 

SPECIAL NOTES 

1. As part of the file assignment package this subroutine will probably 
' be replaced or obsoleted on any non-UNIVAC system. 
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SUBROUTINE IDENTIFICATION 



Name 



NOHEAD (Change Page Boundaries) 



Language 



1100 Assembler 



Date 



Sep 73 



Programmer 



Weissmuller 



FUNCTION 

NOHEAD was written to suppress the EXEC 8 heading lines and allow CODA^ 
orograms to define their own page boundaries. Generally speaking CODAP 
programs provide 5 blank lines at the top of each page instead of the 
default 6 lines. Individual programs vary as to the number of blank 
lines at the bottom of the page. The program DIAGRM, for example, 
suppresses all page boundaries as the diagram may be several pages long. 
ENTRY POINTS 

1. NOHEAD 

2. MARGIN 

3. NOP AGE 
CALLING SEQUFJ^CE 

1. CALL NOHEAD 

a. Inputs - None 

b. Outputs 



(1) Automatic page overflow occurs at line 66 (the tear strip) 



and skips 5 lines at the top of the next page. 



2. 



CALL MARGIN 



a. Inputs - None 
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b. Outputs 

(1) Automatic page overflow is reset to the svstem standard, 
I.e. leave six blank lines at tho top and 3 blank lines at 
the bottom of a 66 line page. 
3. CALL NOPAGE 

a. Inputs - None 

b. Outputs 

(1) All automatic page overflow is suppressed. When forced, a 

new page boundary is the line after the tear strip, otherwise 
no boundaries are recognized. 

SPECIAL NOTES 

1. This is a very machine dependent subroutine, however, an assembler 
subroutine at the user's installation may easily replace this one. 
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SUBROUTINE IDENTIFICATION 



Name 



NRAND (Random Number Generator) 



Language 



1100 Assembler 



Date 



Nov 73 



Programmer 



Hutchinson 



FUNCTION 



NRAND w^ll accept a seed value and return a random number and an updated 

seed value. 
ENTRY POINTS 

1. NRAND 
CALLING SEQUENCE 

1. CALL NRAND (ISEED,PROB) 
a* Inputs 

(1) ISEED is a variable which may contain any value to be used 



as a seed to the random number generator. NOTE: The value 
of ISEED is updated by the subroutine and therefore a constant 
may not be used. Within CODAP, some form of the time of day 
in FIELDATA is generally used as a seed. 
(2) PROB is for output only, 
b. Outputs 

(1) The value of ISEED is modified such that the next call will 
yield a new random number. 

(2) PROB will be a random number in floating point notation in 



SPECIAL NOTES 

1. Though this subroutine is in Assembler, it ought to be easy to rewrite 
for any machine. 



the range 0.0 to 1«0« 
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This routine Is used in conjunction with IRAND and SRAND within 
RANDOM tor selecting random subsamples of a specified size. 
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SUBROUTINE IDENTIFICATION 



Name 



OMSG (Operator Messages) 



Language 



1100 Assembler 



Date 



Jan 74 



Programmer Rogers 
FUNCTION 

OMSG provides a method for a program to communicate with the system 
console operator and visa versa. This routine is used by a few programs 
to provide additional information to the operator. It also has the 
capability to receive operator responses. 
ENTRY POINTS 

1. OMSG 

2. OMSGW 
CALLING SEQUENCE 

1. CALL OMSG (m^ORDS^MESAGE) 

a. Inputs 

(1) NWORDS is a binary integer count of the number of words ia 
the MESAGE array. 

(2) MESAGE is an array which contains the FIELDATA message to 
be displayed on the operator's console. 

b. Outputs 

(1) The first NWORDS of MESAGE is displayed on the operator's 
console. 

2. CALL OMSGW (NOUl',MESOUT,NIN,MESrN) 
a. Inputs 

(1) NOUT is a binary integer count of the number of words in 
the MESOUT array. 
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(2) MESOUT is an array which contains a FIELDATA message which 
solicits an operator response. 

(3) NIN is a variable which conta^.iis a binary integer which is 

a limit to the number of words of response that the operator 
may return, NOTE: NIN is set equal to actual number of words 
returned and therefore a constant must not be used for NIN, 

(4) MESIN is an array for output only, 
b. Outputs 

(1) The first NOUT words of MESOUT is displayed on the operators 
console and the routine waits for a response. (Hence, the 
•V* suffix) 

(2) Upon receiving a response of NIN words or less, NIN is set 
equal to the number of words returned in the MESIN array. 
If an operator attempts to enter more than NIN words, his 
message is erased before he completes it. 

SPECIAL NOTES 

1. This subroutine is very machine dependent^ but its function is not 
essential to the CODAP system. It may be removed with little 
consequence. 
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SUBROUTINE IDENTIFICATION 

Uses. OMSGO (operator's Messages: Other Console) 

1100 Assembler 
Ms. Jan 74 

Programmer Rogers 
FUNCTION 

OMSGO is identical to OMSG except all messages are directed to a 
secondary console. 
ENTRY POINTS 

1. OMSGO 

2. OMSGOW 

CALLING SEQUENCE - See OMSG 
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SUBROUTINE IDENTIFICATION 



Name 



OVRFLO (niST2X Flip-Flop Disk/Table Merge) 



Language 



FORTRAN V 



Date 



Dec 73 



Pro^raminer Barton 
FUNCTION 

When a core table of DIST2X output Information is filled, OVRFLO merges 

the table into a flip-flop pair of mass storage files. 
ENTRY POINTS 

1. OVRFLO 
CALLING SEQUENCE. 

1. CALL OVRFLO (MINF.MAXF,N,LIMIT,KSW, ITABLE, LIN,LOU) 

a. Inputs 

(1) MINF is a decrement index (the table is scanned backwards) » 

(2) MAXF is the maximum number of standard 5-word entries in the 
table. 

(3) N points to the first word of the current entry. 

(4) LIMIT is a constant. 

(5) KSW is a flag. 

(6) ITABLE is the core table. 

(7) LIN and LOU are the FORTRAN unit numbers for the flip-flop files. 

b. Outputs 

(1) The contents of ITABLE. are merged with the contents of unit LIN 



onto unit LOU, and the units are then reversed. 
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SPECIAL NOTES 

This subroutine Is an expedient resulting frow the conversion of DIST?X 
from the IBM 7040 to the UNIVAC 1108. Inline coding was removed to a 
subroutine to reduce the size of the main program and to eliminate a 
bad transfer from a FORTRAN DO loop. Obviously, OVRFLO is highly 
specialized, but reduces the machine dependence of D1ST2X. 
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SUBROUTINE IDENTIFICATION 



Naflic 



PRTDIC (Print Variable Dictionary) 



FORTRAN V 



Data 



May 73 



Prograainfer Stacay 
niNCTK^ 

PRTDIC will read a prepositlonad History or KPATH file and print a 

standard format Variable Dictionary. Thl^ routine Is used in PRDICT» 

VARCEN» and PROGEK. 
ENTRY POINTS 

1. PRTDIC 
CALLING SEQUENCE 

1. CALL PRTDIC (IUNIT,IOUT,NHEAD,IHEAD,NDICT) 
a. Inputs 



(1) lUNIT Is a binary Integer representing the FORTRAN unit 
associated with the History or KPATH Input file. 

(2) IWr Is a binary Integer representing the FORTRAN unit 
associated with the output flle» generally • 6 for the 
printer or • 26 for the Report file. 

(3) NHEAD Is a binary Integer count of the nusiber of 14 word 
FIELDATA heading cards to be printed at the top of the 
first page. 

(4) IHEAD Is an array of 14 word FIELDATA heading cards to be 
printed. 



ERIC 



116 



PRTDIC-2 



(S) NDICT Is a binary integer cotmt of Ihe nuaber of blocks 
of dictionary information on the History or KPATH file. 
This nuaber is the fourth word of the Ccmnimications Region 
b. Outputs 

(1) The Variable Dictionary will be printed or written to the 
Report file. 

SPECIAL NOTES 

1. This is a standard FORTRAN subroutine* 
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SUBROUTINE IDENTIFICATION 



Name 



RANDOM (Random Subsample Selector) 



Language 



FORTRAN V 



Date 



Nov 73 



Programmer Hutchlnson/Welssmuller 
FUNCTION 

RANDOM is a subroutine with two entry points. The first entry establishes 
the random number generator seed, the size cf the total population and the 
exact number of cases to be randomly selected. The second entry simply 
returns a 1 or a 0 depending on whether the current case ought to be 
selected or not. 
ENTRY POINTS 

1. IRAND 

2. BRAND 
CALLING SEQUENCE 

1. CALL IRAND(ISEED,NPOP,NSAMP) 
a. Inputs 



(1) ISEED Is any value to be used as a seed value for the 
random number generator (NRAND). The time of day In 
FIELDATA Is normally used. 

(2) NPOP Is a binary Integer count of the total population 
size from which the random subsample Is to be selected. 

(3) NSAMP Is a binary Integer count of the number of cases to 
be randomly selected. 



b. Outp 



uts 



(1) The random subsample selection routine is initialized and 



SRAND may be called. 
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2. CALL SRAND(INSAMP) 

a. Inputs 

(1) INSAMP Is for output only. 

b. Outputs 

(1) INSAMP Is a binary Integer variable which Is set equal 

to --1 If the current case Is not to be selected or Is set 
equal to +1 If the current case l£ to be selected, 

SPECIAL NOTES 

1. This subroutine Is standard FORTRAN. 
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SUBROUTINE IDENTIFICATION 



Name 



RANF (Random Number Function) 



Language 



FORTRAN V 



Date 



Feb 74 



Programmer Welssmuller 
FUNCTION 

A function reference to RANF will be replaced bv a random floating 
point value in the range from 0.0 to 1.0 inclusively. Note: An 



to RANF. 

ENTRY POINTS 

1. RANF (Function: floating point value (0.0-1.0) 
CALLING SEQUENCE 

1. PROB = RANF(X) 

a. Inputs 

(1) X is a dummy variable. It is neither used nor altered. 

(2) PROB is for output only. 

b. Outputs 

(1) PROB will be set equal to a random floating point value 
between 0*0 and 1.0 inclusively* 

SPECIAL NOTES 

1. This is a standard FORTRAN function. 

2. Prior to using RANF, the routine IRANF must be called. 



initialization routine IRANF must be called prior to the first reference 
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SUBROUTINE IDENTIFICATION 



Name 



RANSEQ (Randomly Sequence an Array) 



Language 



FORTRAN V 



Date 



Oct 74 



Programmer Welssmuller 
FUNCTION 

RANSEQ will accept an Input array of up to 300 Items In length and 

randomly resequence the array. 
ENTRY POINTS 

1, RANSEQ 
CALLING SEQUENCE 

1. CALL RANSEQ (NWORDS, L^RAY) 
a« Inputs 



(1) NWORDS Is a binary integer specifying the number of words 
in lARRAY. 

(2) lARRAY Is an array name which contains elements to be 
resequenced. 

b* Outputs 

(1) lARRAY will be randomly reordered. 



SPECIAL NOTES 

1. This subroutine uses NRAND to generate random numbers, and H2S0RT 
to sort an internal pointer array based on the random numbers. 
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SUBROUTINE IDENTIFICATION 



Name 



REPEND (Report End and Request Card Punch) 



Language 



FORTRAN V 



Date 



Nov 73 



Programmer Welssmuller 
FUNCTION 

REPEND updates the 'last report sentinel* on FORTRAN unit 2 and punches 

a Request card for the report just written to the Report file, as well as 

Initializing the Report file for the next report. 
ENTRY POINTS 

1. REPEND 
CALLING SEQUENCE 

1. CALL REPEND (ISTUDY,IDREPT, ITITLE^NREP) 
a. Inputs 



(1) ISTUDY Is a 4 character FIELDATA code for the account or study, 

(2) IDREPT Is a 6 character FIELDATA Identification for the Report 
just written. 

(3) ITITLE Is an 8 word FIELDATA title that Is printed on the first 
line of the report, 

(4) NREP Is for output only. 



(1) A Request card Is punched with the study, the report ID, the 
report title, and the report number, 

(2) The report number is updated on FORTRAN unit 2, 

(3) NREP Is a binary Integer which Is the updated report number, 

(4) The next * BEGIN REPORT* NREP sentinel Is written to the 
Report file. 



b. Outputs 
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SPECIAL NOTES 

1. This subroutine is coded in standard FORTRAN and is used by every 
program which writes to the Report file. (JOBIND uses a special 
version called REPENl.) 
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SUBROUTINE IDENTIFICATION 

Name REPENl (Report End and Request Card Punch) 

Language FORTRAN V 

Date Nov 73 

Programmer Weissmuller 
FUNCTION 

REPENl updates the *last report sentinel* on FORTRAN unit 2 and punches 
a Request card for the report just written to the Report file as well as 
Initializing the Report file for the next report. This subroutine Is 
used only In JOBIND and Is a modified version of REPEND. 

ENTRY POINTS 
1. REPENl 

CALLING SEQUENCE 

1. CALL REPENl (ISTUDY, IDREPT,ITITLE,IVX, JREP ,NREP) 
a. Inputs 

(1) ISTUDY Is a 4 character FIELDATA code for the account or study. 

(2) IDREPT Is a 6 character FIELDATA Identification for the Report 
just written. 

(3) ITITLE Is a 7 word FIELDATA title that Is printed on the first 
line of the report. 

(4) IVX Is a 'visual control* variable value. It may be up to 6 
FIELDATA characters. 

(5) JREP Is a binary Integer which Identifies the report number 
associated with the group that serves as Input. 
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b. Outputs 

(1) A Request card Is punched with the study, the report ID, the 
report title, the value of the visual ID variable (generally 
case control number), the report number of the Input group 
and the report number for this Individual job description^ 

(2) The report number Is updated on FORTRAN unit 2. 

(3) NREP Is a binary Integer which Is the updated report number. 
(A) The next • BEGIN REPORT* NREP sentinel Is written to the Report 

file. 

SPECIAL NOTEC 

1. This subroutine is coded in standard FORTRAN. 
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SUBROirriNE IDENTIFICATION 



Name 



RESDRV (Reserve a Tape Drive) 



Language 



FORTRAN V 



Date 



Nov 73 



Programmer Welssmul ler 
FUNCTION 

RESDRV asks the operator to reserve a tape drive then indicate the drive 

number to the program. This is used when creating Report and Job 

Description files so that all three copies will onlv use one tape drive. 

Alternate methods are being examined and this routine may soon become 

obsolete. See FREES. 
ENTRY POINTS 

1. RESDRV 
CALLING SEQUENCE 

1. CALL RESDRV (lUNIT) 



a. Inputs 

(1) lUNIT is for output only. 

b. Outputs 

(1) lUNIT is a binary integer denoting the tape drive reserved 
for this program. 



SPECIAL NOTES 

1. This subroutine is part of the file handling package and will probably 



be replaced. 
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SUBROUTINE IDENTIFICATION 



Name 



RFILE (Random Access File for OVRLAP) 



Lanj^uaf^e 



1100 Assembler 



Date 



May 74 



Programroer Rogers 
FUNCTION 

RFILE is a direct access file designed for the OVRLAP program. This 
routine establishes OVRLAP's input as a "READ ONLY" file and prevents 
the entire file from being checkpointed as well as reducing the overhead 
checking inherent in FORTRAN V's direct access coding. 
ENTRY POINTS 

1. DEFINE 

2. WRITER 

3. CLOSER 
A. READR 

CALLING SEQUENCE 

1. CALL DEFINE (MAXREC,MAXLRL,ISTUDY) 

a. Inputs 

(1) MAXREC is a binary integer count of the maximum number of 
records to be written to thih fllei 

(2) MAXLRL is a binary integer Indicating the maximum length 
in words of the longest record. 

(3) ISTUDY is a 4 character FIELDATA code for the account or 
study. This is used to generate filenames. 

b. Outputs 

(1) A direct accesr file is assigned and sufficient mass storage 
area is secured. WRITER may now be called. 
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2. CALL WRHER (IREC.NWORDS, IMAGE) 
a* Inputs 

(1) IREC Is a binary integer index nus^er for the record to be 
written. 

(2) NWORDS is a binary integer count of the nunber of words in 
the record array IMAGE. 

(3) IMAGE is the record array, 
b. Outputs 

(1) The contents of IMAGE is written as record nuid>er IREC in 
the direct access file. 

3. CALL CLOSER 

a. Inputs - None 

b. Outputs 

(1) The direct access file established bv the call to DEFINE and 
loaded with information via the calls to WRITER is closed and 
reassigned as a "READ-ONLY" file. The file is now ready to be 
accessed by OVRLAP via the calls to READR. 

4. CALL READR (IREC,NW)RDS,IMAG£) 

a. Inputs 

(1) IREC is the binary integer index nuoher of the record to be 
read. Note: DEFINE, WRITER and CLOSER must be called prior 
to the first call to READR. 

(2) NWORDS is for output only. 

(3) IMAGE is an array for output only. 

b. Outputs 

(1) NWORDS is a binary integer count of the number of words in the 
record which was stored in IMAGE. 
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(2) IMAGE is an array which contains the record, 
SPECIAL NOTES 

I. This subroutine Is very machine dependent. It was necessitated bv 

properties of the checkpointing system and the excessive error checking 
of FORTRAN. This routine^ along with DISK and Inline direct access 
FORTRAN V staten^nts, will undoubtedly be replaced at other Installations* 



ERLC 



129 



ROSTER-1 



SU6R0UTIHE IDENTIFICATIOH 

Waaic ROSTER (Roster Control Cards and Error Messages) 

Language FORTRAN V 
Date Nov 73 

Programwer Welssmiller 

ROSTER is a set of subroutines designed to print control cards and error 
messages. 
ENTRY POINTS 

1. RESET 

2. PRINTC 

3. ERRMSG 
CALLING SE^ENCE 

CALL RESET 
a. Inputs None 
b« Outputs 

(I) Writes a new control card listing page and resets counters. 
CALL PRINTC 
a« Inputs None 
b* Outputs 

(1) Rosters the last card read bv doing a re-read (FORTRAN unit 0 or 30). 

(2) / tomatic page overflow if required* 
CALL Ek. G (NWORDS^IMSG) 
a. Inputs 

(1) NWORDS Is a binary Integer count of the number of words In the 
error message array IMSO. 
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(2) IMSG is a FIELDATA array of up to 9 words in length which 
contains «i error nessage. IMSG is sonetiaes passed as a 
literal delimited by quote marks, 
b. Outputs 

(1) The contents of IMSG are printed single spaced under the last 
card ros tared. 

SPECIAL NOTES 

1. This subroutine uses FORTRAN V's re-read ability on FORTRAN unit 0 or 
30. The re-read is accomplished by re-accessing FORTRAN'S buffer for 
the card file and may be coded in assembly language if necessary. 
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SUBROUTINE IDENTIFICATION 

Name RPCOPY (Report File Copv) 

Language FORTRAN V 

Date Nov 73 

Progranuner Weissmuller 
FUNCTION 

KPCOPY will copy the Report file from FORTRAN unit 28 to unit 26. Unit 

26 will be left positioned to receive additional reports. This subroutine 

is called after CYCLES in SETUP and SETUP9. 
ENTRY POINTS 

1. RPCOPY 
CALLING SEQUENCE 

1. CALL RPCOPY 

a. Inputs 
(1) None 

b. Outputs 

(1) FORTRAN unit 26 will contain all previous reports and will 
be positioned to receive more. 

SPECIAL rjOTES 

1. This routine is standard FORTRAN with calls to the TREAD subroutine. 
(REWIND is an entry point into TREAD). 



O 132 

ERLC i:,7 



RPEOF-1 



SUBROUTINE IDENTIFICAflON 

Name RPEOF (Reposition Report File for Multiple Programs) 

Language FORTRAN V 

Date Nov 73 

Programmer Welssmuller 
FUNCTION 

RPEOF will reposition a Report file If several program executions write to 
a Report file within a single run. The first program In the runstream will 
call RPCOPY and create a new copy of the Report file. All subsequent 
programs will call RPEOF and set the new copy to receive additional reports. 

ENTRY POINTS 
1. RPEOF 

CALLING SEQUENCE 

1. CALL RPEOF (IUNIT,NREP) 
a. Inputs 

(1) lUNIT is a binary Integer dcuctlnf the FORTRAN unit number of 
the Report file, (generally lUNIT = 26) 

(2) NREP is for output only. 
b» Outputs 

(1) NREP is a binary Integer indicating the number of the last 
report sentinel on the Report file. 

(2) The Report file is positioned to receive additional reports. 
SPECIAL NOTES 

1. This subroutine is standard FORTRAN. 



ERLC 



133 



RPINDX-1 



SUBROUTINE IDENTIFICATION 



Name 



RPINDX (Report File Index) 



Language 



FORTRAN V 



Date 



Jul 73 



Programmer Welssmuller 
FUNCTION 

RPINDX will print an index of the Report file assigned to FORTRAN unit 28. 

This subroutine is called when option 2 of the EXTRCT program is specified. 
ENTRY POINTS 

1. RPINDX 
CALLING SEQUENCE 

1. CALL RPINDX 

a. Inputs - None 

b. Outputs 

(1) A printed index of the Report file assigned to FORTRAN unit 28. 
SPECIAL NOTES 

1. This subroutine is standard FORTRAN. 
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SUBROUTINE IDENTIFICATION 



Name 



RUNID (Retrieve Run ID and Study ID) 



Language 



1100 Assembler 



Date 



Apr 74 



Programmer 



Weissmuller 



FUNCTION 

RUNID will retrieve the run ID and the account or study ID. This routine 

Is used only in INPSTD and Is not at all essential even there. 
ENTRY POINTS 

1. RUNID 
CALLING SEQUENCE 

1. CALL RUNID (IDRUN,ISTUDY) 

a. Inputs 

(1) IDRUN and ISTUDY are for output only. 

b. Outputs 



(1) IDRUN Is a 6 character FIELDATA Identification of a run. By 

Installation policy the first four characters are an individual's 



(2) ISTUDY is a 4 character FIELDATA code foi the account or study. 



1. This is a highly specialized subroutine which is used only in INPSTD 

for punching a card to be returned to the programmers for timing studies. 
An attempt is being made to estimate the running time of OVRLAP from 
information accumulated by INPSTD. This routine and the punched card 
may easily be eliminated. 



ID code. 



SPECIAL NOTES 
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SUBROUTINE IDENTIFICATION 



Name 



SAMSEL (Sample Selection Subroutine) 



Language 



FORTRAN V 



Pate 



Jun 74 



Programmer Welssmuller 
FUNCTION 

s 

SAMSEL has two entry points, one for determining the sampling logic and one 
for actually selecting based on that logic. 
ENTRY POINTS 

1. SAJ^LE 

2. SELECT 
CALLING SEQUENCE 

i. CALL SAMPLE (IDSAMP,IDVAR,NVAR,IERR,IPRT) 
a. Inputs 



(1) VARIABLE INTERACTION CARD - See Sample Selection attachment 
Section I. 

(2) IDSAMP is an Identification code for this sample. (Normally 
sequential binary Integers.) 

(3) lERR Is a binary Integer error count (normally « 0). 

(4) IPRT is a binary Integer print flag. If IPRT « 1, PRINTC Is 
called and the VARIABLE INTERACTION CARD Is rostered. (See 
ROSTER) If IPRT ^ 1, no rosterlng occurs. 

(5) IDVAR Is a 9 word array for output only. 

(6) NVAR Is for output only. 



(1) The VARIABLE INTERACTION CARD Is read from the card reader. 



b. 



Outputs 
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(2) Ttie IDVAR array contains a binary Integer for each variable 

ID found on the INTERACTION CARD. Background or VXXX variables 
are flagged by making them negative. For example. If V015 or 
V15 Is encountered, the corresponding element of IDVAR « -15. 
Conversely, If C015 or C15 Is found, the proper element of 
IDVAR - +15. 

(3) NVAR Is the number of variable IDs found on the INTERACTION 
CARD. A maximum of 9 Is allowed. 

(4) lERR Is a binary Integer which is Incremented by 1 for each 
error detected. 

(5) The INTERACTION CARD Is rosti>red If IPRT « 1. 
2. CALL SELECT (IDSAMP,LVALS,$REJECT,$NOFIND) 

a. Inputs 

(1) IDSAMP Is an identification code for the desired sample. It 
must match exactly an IDSAMP created by a call to SAMPLE. 

(2) LVALS Is an array of binary Integers equal to 1 or 0. A given 
element of LVALS will equal 1 If the value of the corresponding 
variable specified In IDVAR Is In the required range, and 0 
otherwise. The main program Is responsible for keeping track 
of variable ranges and determining whether or not a particular 
case has data within these ranges. Note: The array LVALS Is 
altered by the subroutine. 

(3) REJECT is the FORTRAN statement number to iump to if the current 
case does not meet the sample restriction requirements. 

(4) NOFIND is the FORTRAN statement number to jump to if no match 
iB found for IDSAMP. 
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b* Outputs 

(1) Either, there is a normal return from the subroutine which 
indicates the case should be added to the sample , and 
LVALS(l) 0» or 

(2) Control is returned to FORTRAN statement number REJECT, which 
means the case is not in the sample and LVALS(l) « 0, or 

(3) Control is returned to FORTRAN statement number NOFIND because 
no match was found for IDSAMP. 

SPECIAL NOTES 

1. This routine uses ERTRAN to dynamically assign FORTRAN unit 4 as a 
temporary storage unit for the logical operations table. Other than 
that, hoKirever, SAMSEL is coded in rather standard FORTRAN, 
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SAMPLE SELECTION 
Section I VARIABLE INTERACTION CARD 

Columns 

2 Number of variable ranges used. (Maximum of 9) This also 

specifies the number of cards in Section II. 
4-80 Variables and operators optionally nested in parens. 

OPERATORS - Two logical operators may be used* These will 

perform a logical "AND" or a logi-al "OR". These 
operators are denoted by the following special 
characters: 

Logical "AND" is denoted by "&". 
Logical "OR" is denoted by ":" (Colon). 
VARIABLES - The variable names may be abbreviated to least 
number of significant characters. For example, 
C007 may be written "C7", V020 may be written 
••V20", etc. 

PARENS - If used, the parens must appear in matched pairs. 

The use of parens will cause the enclosed expression 
to be evaluated prior to all lesser or non-enclosed 
expressions. The normal method of evaluating the 
logical expressions is to evaluate all expressions 
containing "&" (which is the logical "AND") from 
left to right, then evaluate alx expressions 
containing ":" (which is the logical "OR"). In 
other words, a logical "AND" has precedence over a 
logical "OR", as is the case in most MATH or LOGIC 
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SAMSEL ATCH 



Section II 
Columns 
2 



Systems. Parens may be used for readability or 
to override the normal hierarchy. 
VARIABLE SPECIFICATION CARD (one card per variable) 



1 " The variable Is 1-6 characters In size 

2 " The variable Is 7-12 characters In size 
blank • The variable Is computed (Cxxx) 

4- 7 Variable Identification (Vxxx or Cxxx) 

9-80 Variable low and high ranges. Values must be left adjusted In 

their fields. Both low and high must be specified. 
If cc 2 Is 1: Punch low In cc 9-14, high In cc 15-20. 
If cc 2 Is 2: Punch low in cc 9-20, high In cc 21-32. 
If cc 2 Is blank: Same as 2 except values must contain a 
decimal point. 

EXAMPLES 

If COO 7 « Number of non-zero task responses » V003 «" Grade. 
3 C7&V003:V3 

C007 400. 683. 
1 V003 1 3 
1 V003 4 9 

Then this setup will select all Airman First and below who perform between 
400 and 683 tasks and all Sergeants and above regardless of the number of 
tasks they perform. 
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SUBROUTINE IDENTIFICATION 



Name 



SETUP (Standard File Setup and Assignment Routine) 



Language 



FORTRAN V 



Date 



Nov 73 



Prog rammer Weissmuller 
FUNCTION 

SETUP is the highest level subroutine in the file assignment package* 
Removing or changing SETUP will obsolete the following subroutines! 
ASGA, ASGAM, ASGC, ASGCM, AUTORV, CYCLES, DKSTAT, FACREJ, JDCOPY, 
JDEOF, RPCOPY, RPEOF, STATUS. 

Generally, SETUP establishes the relationship between the filenames on 
the FILENAMES card and corresponding FORTRAN units in the calling seauence. 
Additional FORTRAN scratch units may be defined which are unrelated to 
the filenan^s on the FILENAMES card. 

This subroutine, or some similar version, is called by every main program 

in the CODAP system if any files are involved. 
ENTRY POINTS 

1. SETUP 
CALLING SEQUENCE 

1. CALL SETUP (I1,I2,I3,U,I5,I6,J1,J2,J3,J4,J5,NREP) 



(1) II through 16 are binary integers in the range (10-28) denoting 
the FORTRAN unit to be associated with* the corresponding 
filename on the FILENAMES card. 

(2) Jl through J5 are binary integers normally in the range 20-24 
denoting FORTRAN mass storage scratch units to be assigned. 

(3) NREP is for output only. 



Inputs 
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b. Outputs 

(1) The FILENAMES card is read from the card reader* 

(2) For an I value » 25-28 a Report or Job Description file or 
files is assigned* If the I value is: 

(a) 25: A new copy of the Job Description is created by 
assigning the most recent copy of the file to FORTRAN 
unit 27, assigning the oldest copy to unit 25 and copying 
from 27 to 25. TYie most recent copy on 27 is released 
and unit 25 is left mounted to receive additional Job 
Descriptions. (See CYCLES, JDCOPY, JDEOF), Notes This 
action is performed onlv in the SETUP9 version, but is 
Included heru for documentation. SETUP9 was created 
because this copying requires 5000 words of core but can 
only be called by JOBSPC or JOBGRP. 

(b) 26: Similar to the above except the Report file is 
used. Unit 28 has the most recent copy and 26 becomes 
the new copy* This action is performed for each run 
which contains at least one program which writes to the 
Report file. (See CYCLES, RPCOPY, and RPEOF) 

(c) 27: The most recent copy of the Job Description file is 
assigned for input only. (See ASGAM) 

(d) 28: The most recent copy of the Report file is assigned 
for input only. (See ASGAM) 

NOTE: An "M" suffix and cycle number are added to the filename 
found on the FILENAMES card for all assignments in 
this range (25-28). 
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(3) For v\ I value • 10-14, an input file is assigned and the 
FORVRAN unit number relationship is established, (See ASGA) 

(4) For an I value « 15-19, a new catalogued tape is assigned 
for output and the FORTRAN unit number relationship is 
established (See A?GC), or if the filenaine is equal to 
•SCRATCH*, a scratch tape with the proper FORTRAN unit 
designation is assigned. 

(5) For an I value « 20-24, a scratch tape with the proper 
FORTRAN unit will be assigned. 

(6) For an I value less than 10 (other than 0) or greater than 
28 an error message is printed and the run aborts. 

(7) For an I or J value equal to 0, no action is taken. Note: 
FORTRAN unit 0 cannot be assigned to a file since the UNIVAC 
FORTRAN V convention sets FORTRAN units 0 and 30 as the 
reread units. This convention could be overridden, but is 
not within the CODAP system. 

(8) For any value of J, an attempt is made to assign a temporarv 
macs storage scratch file. If the J value is not in the range 
1-29 an error occurs. Moreover, no check is made to see if the 
I and J values conflict. 

(9) NREF is a binary integer set equal to the last report sentinel 
on the Report file if and only if an I value of 26 is used and 
a valid Report file was specified on the corresponding field 
of the FILENAMES card. 

SPECIAL NOTES 

1. This subroutine will undoubtedly be replaced by any installation which 
does not have a UNIVAC. This documentation U provided to ease the 
rewriting involved. 
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SUBRO'ITINE IDENTIFICATION 



SETUPS (File Assignments for EXTRCT) 



FORTRAN V 



Date 



Nov 73 



Prograimner Wei sstnul ler 
FUNCTICW 

SETUPS is identical to SEIUP except an I value in the range 15-19 will 
create a new 3-reel •W suffix file rather than a normal single reel 
file. (Ref SETUP: CALLINC SEQUENCE lb (A) - See ASGCM) 

ENTRf POINTS 
1. SETUPS 

CALLING SEQUENCE 

1. CALL SETUPS (I1,I2,I3,IA,1S,I6,J1,J2,J3,JA,J5,NREP) 



See SETUP 
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SUBROUTINE IDENTIFICATION 

Name SETUP9 (File Assignments for JOBGRP and JOBSPC) 

Language FORTRAN V 

Date Jun 74 

Programmer Welssmuller 
FUNCTION 

SETUP9 is identical to SETUP except it allows a new copy of the Job 
Description file to be created. Because the copying procedure requires 
5000 additional words of core, this routine was formed from the stimdard 
SETUP. 

ENTRY POINTS 
1. SETUP9 

CALLING SEQUENCE 

1. CALL SETUP9 (I1.I2J3J4,I5,I6,J1, J2,J3, J4,J5,NREP) 
See SETUP 
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SUBROUTINE IDENTIFICATION 



Name 



SHIFT (Shift Characters Right Within Words) 



Languag e 



FORTRAN V 



Date 



Dec 73 



Programmer Weissmuller 
FUNCTION 

SHIFT causes a given number of the leftmost characters of each of a 

specified number of words in an array to be right justified with preceding 

blanks within the same words. 
ENTRY POINTS 

1. SHIFT 
CALLING SEQUENCE 

1* CALL SHIFT (NCHAR.NWORD, IRAY) 
a» Inputs 



(1) NCHAR is the number of characters, taken from the left, to be 
shifted right. If NCHAR is not between 1 and 5, the subroutine 
takes no action* 

(2) NWORD is the number of words, starting with the first word of 
the array, to be shifted within, 

(3) IRAY is the array (name). 



(1) For each word, l-NWORD, of array IRAY the leftmost NCHAR 

characters become the rightmost NCHAR characters with blanks 
preceding. Of course, the original rightmost character (s) are 
last. 



SPECIAL NOTES 

1. SHIFT assumes a 6-character word and used the FORTRAN ENCODE, but Is 
otherwise machine independent. 



b. 



Outputs 
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SUBROUTINE TDENTTFICATION 



Name 



SISO (Source Input, Source Output Routine) 



Language 



1108 Assembler 



Date 



Sep 73 



Programmer Rogers 
FUNCTION 

SISO is a set of subroutines which allows a program to read, update and/or 
write elements In a mass storage program file. SISO Is only used In PROGEN 
which generates a FORTRAN V program element. Calls to these routines 
may be replaced by either punching cards or writing these card images to 
another mass storage or tape file. This may force PROGEN to become a 
two step operation: Program generation then, in another run, compilation 
and excution. 

ENTRY POINTS 

1. See Attachment. 

CALLING SEQUENCE - See Attachment. 
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LIBZ.SISO (UNIVAC 1108 Assembler Language Subxoutine) 
Entry Points — Routines 



SPREP Call the Pre-Processor routine 

SPOST Call the Post-Processor routine 

SIOPN Open the Source Input file 

SICLS Close the Source Input file 

SIGET Get the next Source Input record 

SOOPN Open the Source Output file 

SOCLS Close the Source Output file 

SOPUT Put a record on the Source Output file 

Entry Points — Data 



PAFTBL Parameter table used by the Source Input routine and the Source 
Output routine. 

General Information: 

The registers used in these routines (A0-A3, Rl) are not saved or 
restored by the subroutine. Xll is always the linkage register* 

These routines all have FORTRAN compatible calling sequences. 

Any errors will cause a message to be printed and the run aborted. 
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SPREP — Call the Pre-Processor routine 

This routine calls the EXEC 8 routine PREPRO to initialize the Parameter 
Table, PARTBL. It returns a list of the options specified on the processor 
call card in fieldata, left adjusted, with six characters per word. 

CALL SPREP (OPTLST) 

OPTLST — An array to receive the option list. It should be filled with 
zeroes or blanks before the call. The specified options are 
alphabetical, left to right. 

SPOST — Call the Post-Processor routine 

This routine calls the EXEC 8 routine POSTPR to reset the assignment 
status of program files. 

CALL SPOST 

SIOPN — Open the Source Input file 

This routine provides initialization functions for getting Source Input 
records from the input program file. 

CALL SIOPN 

SICLS — Close the Source Input file 

This routine providu2> termination functions for closing the ^o.-rce Input 
file. 

SIGET — Get the next Source Input record 

This routine returns the next logical record in the input file to the 
user's area, along with a flag indicating new or removed cards. When End-of 
File is detected, the length parameter is set to zero. 

CALL SIGET (REC,LEN,FLAG) 

RF.C.....The receiving area for the record. 

LEN The length in words of the receiving area. 

FLAG.... The flag indicating new or deleted images in the first three characters. 
Possible values are: 

"NEW" indicating a new image. 

"-xx" where xx is a two-digit decimal number indicating the number of 

images deleted prior to this image. This number cannot exceed 63. 
If more than 63 images are deleted, it will only show 63. 

"jJUy if neither of the above, llie value is spaces. 
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SOOPN — Open the Source Output file 

This routine provides initialization for output to a program file. 

CALL SOOPN 

SOCLS — Close the Source Output file 

This routine provides termination functions for closing the Source 
Output file. 

CALL SOCLS 

SOPUT — Put a record on the Source Output file 

This routine transfers an image from the user's area to the source output 
area. 



CALL SOPUl' (LEN,REC) 



LEN 
REC 



Length of the output image. 
The image area to be output. 
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SUBROUTINE IDENTIFICATION 



Name 



STATS (Statistics on Task Responses) 



Language 



FORTRAN V 



Date 



May 74 



Pro^ranuner 



Barton /Weissmuller 



FUNCTION 

STATS is a subroutine which was added to INPSTD in order to provide task 
response statistics used to predict the running time of OVRLAP. 
ENTRY POINTS 

1. STATS 

2. STATS S 
CALLING SEQUENCE 

1. CALL STATS (NZTSK) 
a. Inputs 

(1) NZTSK is a binary Intf^ger count of the number of non^zero 



b. Outputs 

(1) The statistics are accumulated for each call. 
2. CALL STATSS (AMEAN,SD,MIN,MAX,ISUM,NCASE) 

a. Inputs 

(1) Successive calls to STATS 

(2) AMEAN, SD, MIN, :TAX, ISUM, and NCASE are for output only. 

b. Outputs 

(1) AMEAN is the floating point value representing the mean of 
all values passed to STATS. 

(2) SD is the floating point value of the standard deviation of 



task responses made by the current case. 



the values passed* 
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(3) MTN is a bin^iry integei equal to the lowes^t NZTSK passed 
to STATS. 

(4) MAX Is a binary integer equal to the highest NZTSK passed 
to STATS. 

(5) ISUM Is a binary integer summation of all NZTSK values passed 
to STATS. 

(6) NCASE is a binary integer count of the number of times STATS 
was called. 

SPFXIAL NOTES 

1. STATS is coded in standard FORTRAN 
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SUBROUTINE IDENTIFICATION 



Name 



STATUS (Tape File Status) 



Language 



1100 Assembler 



Date 



Sep 73 



Programmer Welssmuller 
FUNCTION 

STATUS is the subroutine used by all the "assign file" subroutines. This 
Is the routine which actually tests to see If a requested tape file Is 
already assigned to the run. See DKSTAT for a similar function on mass 
storage files. 

ENTRY POINTS 
1. STATUS 

CALLING SEQUENCE 

1. CALL STATUS (ID, IREELl, IREEL2, IFLAG) 
a. Inputs 



(1) ID Is a two word array which contains the FORTRAN unit left 
adjusted In FIELDATA In the first word and blank filled 
through the second word. The association between the FORTRAN 
unit and the external filename must be established prior to 
this call. 

(2) IREEL1,IREEL2, and IFLAG are for output only. 



(1) lUnCLl will contain the 6 character FIELDATA reel ID of the 
first reel of the file If IFLAG « 0, otherwise IREELl will be 
a binary integer zero. 



b. 



Outputs 
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(2) IREEL2 will contain the 6 character FIELDATA reel ID of the 
second reel of the file If IFLAG » 0 and there are at least 
two reels In the file, otherwise IREEL2 will be a binary 
Integer zero. 

(3) IFLAG Is a binary Integer flag word. If IFLAG « 0, the file 
was already assigned when the call was made, and the reel IDs 
above will contain the proper Information. If, however, 
IFLAG - 1, the file In question Is not currently assigned and 
the reel IDs are not set. 

SPECIAL NOTES 

1. Being part of the file assignment package, this subroutine will either 
be replaced or deleted. 
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SUBROUTINE IDErNTIFICATI(»J 



Name 



SUBRTN (Assembler Subroutine Support Package) 



Language 



1100 Assembler 



Date 



Oct 73 



Prograimner 



Rogers 



FUNCTION 

SUBRTN Is a large set of assembler subroutines used at this Installation. 

It Is Included because some programs were adopted from outside the CODA? 

area and required this package, ♦Primarily these routines are used In 

CFHIO, SISO, and READPF, all of which are themselves 1100 Assembler programs. 
ENTRY POINTS 

1« See Attachment 
CALLING SEQUENCES - See Attachment for usage. 

SPECIAL NOTES < 

1. The entry point ZERC has been modified within CODAP to be ZER^ to avoid 

an entry point conflict. 
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LIBZ.SUBRTN (UNIVAC 1108 Assembler Language Subroutines) 



Entry Points — Data Handling 

BINFD Binary to Fieldata (no zero suppression) 

BINOCT Binary to Octal 

DATETIME Current date and time of day 

FDBIN Fieldata to Binary 

MOVBIN Binary to Fieldata (left adjusted) 

MOVED Move Fieldata character string 

MOVFDl Move Fieldata character string (Sets A3 and X8) 

OCTBIN Octal to Binary 

ZERO Binary to Fieldata with zero suppression 

Entry Points — Free Format Scan 

ISCAN Initialize and scan 

RESSCN Restore scan pointers 

SAVSCN Save scan pointers 

SCAN Scan for one field 

SETSCN Set scan parameters 

Entry Points — Character Handling 

GETC Get a character 

PUTC Put a character 

PUTCR Put a character (Reverse) 

Entry Points — Data 

BIN Binary value of "FIELD" 

CARD Input area for SCAN 

DATE Output from DATETIME 

FIELD Output (FD) from SCAN (left justified, space fill) 

INFO Scan Information flags 

TIME Output from DATETIME 



General Information: 

All partial word parameters to these subroutines require the following 
forms directive: 

ARC FORM 12,6,18 

All registers used by the data handling and scan subroutines will be 
saved and restored in the subroutine. Xll is always the linkage register. 

The character handling tables (GETC, PUTC, PUTCR) require initial 
register settings. 

These subroutines are NOT compatible with FORTRAN'S calling sequence. 
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BINFD — Binary to Fieldata 

This routine converts a signed binary integer value in memory to a 
Fieldata character string. The result will have leading zeros and the sign 
will be placed in the leftmost character position if the binary value is 
negative. Positive numbers have a zero in the leftmost position. 

If the receiving storage area is too small to accomodate the value and 
the sign, it will be truncated with no error indication given. 

LMJ XI 1, BINFD 
ARG SC,0,AREA 
ARC NC.X.BINVAL 

SC Starting character position of the receiving area 

AREA Base address of the FD area 

NC Number of characters in the receiving area 

X Cptiuttiil X register if BINVAL is indexed 

BINVAL. • .Location of the binary value 

Example : 

LMJ XI 1, BINFD 

ARG 62,0,LINE1 

ARC, 9.0,NUM NUM » 34624 

Characters 62-70 of LINEl will contain 000034624. If NUM contained 
-34624, characters 62-70 woiild contain -00034624. 



1(>2 
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BINOCT — Binary to Octal 

This routine converts the contents of one word of storage to Its 1-12 
digit octal equ .ent In Fleldata. 

If the receiving storage area Is less than 12 characters the value will 
be truncated to flt« 

LMJ Xll, BINOCT 
ARC SC,0,AREA 
ARC NC,X,BINVAL 

SC • .Starting character position of the receiving area 

AREA Base address of the FD area 

NC Nun^er of characters In the receiving area 

X Optional X register If BINVAL Is Indexed 

BINVAL« «« Location of the binary value 



Characters 43-48 of HDR will contall 040221. If CTLWRD contained -1, 
characters 43-48 would contain 777776. 



Example: 



LMJ 
ARC 
ARC 



XI 1, BINOCT 
43,0, HDR 
6,0, CTLWRD 



CTLWRD - 0000001040221 
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DATETIME — Current date and time of day 

This routine picks up the current date and time of day from EXEC 8 and 
converts them to a form suitable for printing. 

LMJ XII, DATETIME 

The results are as follows with trailing spaces In DATE+2 and TIME+1 



DATE 

0ATE+l,DATE+2 
TiME,TIME-H 



YYMMDD 
DD MMM YY 
HH:MM:SS 
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FDBIN — Fleldata to Binary 

This routine converts a Fieldata character string to a signed ' inary 
value. The character string is always scanned, leading spaces are ignored 
and FDBIN stops scanning on the end of the field or a trailing space. 

Two modes of operation are possible, (1) nonediting and (2) editing. Only 
in editing mode will a numeric test be performed on the nonblank characters. 

mj Xll, FDBIN NONEDITING MODE 

ARG SC,0,AREA 
ARG NC,X,BINVAL 

SC Starting character of the input character string 

AREA Base address of the FD area 

NC Number of ch^^racters in the input string 

X .Optional X register if BINVAL is indexed 

BIN VAL. . .Resulting signed binary value 

LMJ Xll, FDBIN EDITING MODE 

ARG SC,E,AREA 

ARG NC,X, BINVAL 

+ ERRXIT 

E Any nonzero value 

ERRXIT. ..Alternate return point if the editing results in an error condition. 

Under this circumstance, BINVAL will contain one of the following values: 

0 « FDVAL was all spaces or only a sign 

1 » At least one nonnumeric character was found 

2 = The sign does nou precede the value 

3 = The number is more than 10 digits in length 

Example: 

LMJ Xll, FDBIN 
ARG 1,0, FIELD 

ARG 12,0, BIN FIELD = " - 6 " 

Location BIN will contain 7777777777710. If FIELD contained 
2817", BIN would contain 0000000054018. 
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MOVBIN ~ Binary to Fleldata (Left Adjusted) 

This routine converts a signed binary value to Fieldata and stores all 
significant digits (plus the minus sign for negative values) left to right 
beginning with the starting character specified in the calling sequence. 
The length of the character string is returned to the calling program. 

MOVBIN uses subroutine ZERO to make the initial conversion prior to 
storing the character string. 

LMJ Xll, MOVBIN 
ARG SC. 0, AREA 
ARG NC,X,BINVAL 

SC Starting character position of the receiving area 

AREA Base address of the FD area 

NC Number of characters stored by MOVBIN 

X Optional X register if BINVAL is indexed 

BINVAL. . .Location of the binary value 

Example: 

LMJ Xll.MOVBIN 
ARG 75,0, MSG 

ARG 0,0,INCT INCT = 0000000 30071g 

Characters 75-79 of MSG will contail "12345" and the number 5 will be stored 
in Tl of the second parameter. If INCT had contained 777777747706g, characters 
75-80 of MSG would contain -12345 and the number 6 would have been stored in 
Tl of the second parameter. 
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MOVFD & MOVFDl — Move Fieldata character string 

This routine will move a Fieldata character string of up to 4095 characters 
in length from one area of memory to another. 

MOVFD and MOVFDl use both the GETC and the PUTC routines to move data. 

MOVFDl is identical to MOVFD with the exception that registers A3 and 
X8 will not be restored to their original contents. Thev will be set to the 
word and byte position of the first charac.or following the receiving field. 

LMJ XI 1, MOVFD (or MOVFDl) 
ARC NC,FBYTE,FWORD 
ARG NB,TBYTE,TWORD 

NC. ..... .Number of characters to be moved 

FBYTE 1st bvte position (0-5) within FWORD 

FWORD. .. .Starting address of the sending (from) field 

NB Number of blanks (spaces) to move following the character string 

TBYTE....lst byte position (0-5) within TWORD 

TWORD. .. .Starting address of the receiving (to) field 

Example: 

L.MJ X 11, MOVFD 
ARG 32,0, MSG 
ARG 0,4,LINE+3 

Characters 1-32 of MSG will be moved to characters 18-49 of LINE. If Tl 
of the second parameter had been 5, then characters 5{l-54 would have been set 
to spaces after the move. 

LMJ XI 1, MOVFDl 

ARC 17,0. Ml 

ARC 1,^,CTMSG 

Characters 1-17 of Ml will be moved to characters 1-17 of CTMSG followed 

by one space. A3 and X8 will be pointing to character position 19 of CTMSC. 

In this case, the calling program could con' inue moving data via the PUTC 
routine. 
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OCTBIN — Octal to Binary 

This routine will convert a Fie] data (FD) character string to a binarv 
value. Esch digit will be edited for validity (0-7). Any out of ran^e 
character will terminate the scan ar.i the binary value collected to that 
point will be saved. 

UiJ Xll, OCTBIN 
ARG SC,0,FDVAL 
ARC NC,0,BINVAL 

SC Starting character within FDVAL 

FDVAL....Fieldata value starting address 

NC Length of ^DVAL 

BINVAL. • .Result of conversion 

Example: 

LMJ X 11, OCTBIN 
ARG 5,0,LINE1 
ARG 6,0,NUM 

If LINEl contains •U1<1<K73125|!|;U \ NUM « 073125. The blank after the '5' 
is not in range, so the scan terminates. 



163 



SUBRTN ATCH 



ZERO ~ Binary to Fieldata with Zero suppression 

This routine converts a signed binary integer value in memory to a 
Fieldata character string. The result will be right adjusted in the receiving 
field with all leading zeros removed. The units position of the number is 
always printed. The minus sign on negative numbers will be "floated" to the 
first position in front of the most significant digit. 

If the receiving storage area is too small to accomodate the value and 
the sign, it will be truncated with no error indication given. 

LMJ X 11, ZERO 
ARG SC,0,AREA 
ARG NC,X,BINVAL 

SC Starting character position of the receiving area 

AREA Base address of the FD area 

NC Number of characters in the receiving area 

X Optional X register if BINVAL is indexed 

BINVAL,.. Location of the binary value 

Example: 

LMJ X11,ZER0 
ARG 62,0, LINE 1 

ARG 9,^,NUM NUM = binary 34624 

Characters 62-70 of LINEl will contain KK|f|f 34624. If NUM contained a 
negative 34624, characters 62-70 of LINEl would contain J(UU-34624. 



164 



SUBRTN ATCH 



ISCAN ~ Initialize and Scan 

This routine initializes the pointers for SCAN and performs the first 
scan on contents of CARD. As each new image is placed into CARD, the scan 
pointers must be reset to the beginning via ISCAN. 

ISCAN will initialize and perform the first scan via a call to SCAN 
before returning. Therefore, the scan data fields of P^N, CARD, FIELD and 
INFO apply to both ISCAN and SCAN. 

A call to the SETSCN routine may be made prior to a call to ISCAN, 

LMJ Xll, ISCAN 
+ LENGTH 

LENGTH Location of the length of the current image 

Examp le : 



LA 


A0, (EOF, CARD) 


ER 


READ$ 


SA,H2 


A^,LEN 


• • 

LMJ 


Xll, ISCAN 


+ 


LEN 



The read symblont will return the length of the card (In words) via A0. 
It is In turn passed to the ISCAN routine. 
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RESSCN — Restore scan pointers 

This routine restores the word and byte position saved by SAVSCN, 

LMJ X 11, RESSCN 
After calling RESSCN, a call to SETSCN is required. 

SAVSCN — Save scan pointers 

This routine saves the current word and byte position of the SCAN 
subroutine. 

LMJ X 11, SAVSCN 
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SCAN — Scan the input image for one field 

This routine performs a free format scan of the image in CARD beginning 
with the position of the last call to ISCAN or SCAN. 

The scan pointers must be initialized by a call to ISCAN, then, all 
subsequent calls to SCAN will leave the pointers set for the next entry. 

LMJ X11,SCAN 

The following storage areas will contain the results of the scan operation: 

FIELD.... Fieldata value left adjusted with trailing spaces 

BIN Binary value of FIELD if it is numeric 

INFO Scan information flags 

Tl.... Length of the FD value in FIELD 
S3.... Type of field 

1 = Alphanumeric 

2 = Numeric 

3 = Literal 

A = Blank (null) field 
S4....E0C (End of Card flag) 

0 = Not end of card 

1 = End of card 

S5.... Subscript of PUNCT in punctuation list 
S6....PUNCT (Punctuation mark which terminated the scan) 

Example: 

Assume that the image in CARD is "CARD (123) .... 

1st scan (ISCAN): FIELD = "CARD" 
BIN = 0 



2nd scan (SCAN): FIELD = "123" 
BIN = 123 



INFO = 0004 01 0* 04 51 

FIELD = "123" 
BIN = 123 
INFO = 0003 02 01 05 40 
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SETSCN — Sec Scan Parameters 



This routine sets the free format scan parameters STARTC, PCTL and NPCT 
for ISCAN and SCAN. SETSCN must be called prior to a call to ISCAN. 

The two items set by SETSCN are the starting position and the punctuation 
list. Thev are the lirst and second parameters for SETSCN, respectively. 

LMJ X 11, SETSCN 

ARC BYTE,0,W()RP or + 0 

ARC NPCT,jJ,PLIST or + ^ 

BYTE 1st Bvte with word (0-5) 

WORD 1st Word of the scan area (within CARD) 

NPCT Numhf r of punctuation marks in PLIST 

PLIST. .. .Punctuation mark list address 

If 1st parameter = + 0 SETSCN uses <<,<I,CARD 
If 2nd parameter = + 0 SETSCN uses 9,0, PLIST 

PLIST 



9 


NPCT = 1 




2 


/• 


3 


(• 


4 


)• 


5 


*' 


6 




7 


+' 


8 




9 



Note: The punctuation mark list contains one punctuation mark per word (86) • 
Example: 

LMJ X 11, SETSCN 

ARG 2,^,NEWPCT 



NEUTCT + ' , ' 

+ 

« 

The starting character position for scanning the image in CARD will remain 
at its normal position of character 1 and the punctuation mark list will be 
changed to comma and equal. 

It should be noted here that a space is always a scan terminating character 
and that literals bounded by quotes are always defined. The character octal 76 
may not be used since it is the and of card flag. 
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GETC, PUTC, and PUTCR ~ Character handling tables 

These routines retrieve (GETC) or store (PUTC and PUTCR) character 
strings from and Into memory. When moving over a word boundary, X6 is 
destroyed by the update routine. 

GETC IX X7,(1,W0RD) 

LA A2,(1,BYTE) 



EX GETC,*A2 A4 contains the next character 

PUTC LX X8,(1,W0RD) 

LA A3, (1, BYTE) 



EX PUTC,*A3 S6 of A4 is stored 

PUTCR. . . .LX X8, (-1 ,WORD) 

LA A3,(1,5-BYTE) 



EX PUTCR, *A3 S6 of A6 is stored 

WORD Beginning word address of he character string 

BYTE Beginnlag byte within WORD (0-5) 

Examp le : 

LX X7,(1,MSG) 
LX X8,(l,LINE+2) 
LA A2,(l,0) 
LA A3, (1,3) 

LR,U Rl,14 
EX GETC.*A2 
EX PUTC,*A3 
JGD Rl,$-2 

The 15 characters beginning with character 1 of MSG will be moved to the 
15 characters beginning with character 16 of LINE. 
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SUBROUTINE IDENTIFICATION 

Name TABL3 (Table 3 of FORTRAN V Sort Package) 

Language 1100 Assembler 

Date 

Programmer UNIVAC 
FUNCTION 

TABL3 is a UNIVAC provided subroutine which Is Included for reference only. 
It Is part of the FSORT - LINK package which a a FORTRAN V Interface to the 
UNIVAC utility Sort Package. This routine provides 16000 words of core and 
200,000 words of mass storage for sorting. TABL3 Is the largest non-tape 
space reservation subroutine of the TABLl - TABL6 series and Is the onJy 
one used In the CODAP system. 

ENTRY POINTS 
1. S0PEN3 

CALLING SEQUENCE 

1. CALL S0PEN3 ($RET,$ESORT,MAXLRL,MAXLEN,ITABL) 
a. Inputs 

(1) RET Is the FORTRAN statement number to return to upon 
completing this call. 

(2) ESORT Is the FORTRAN statement number to return to after 
SSORT of LINK Is called and all sorting Is complete. 

(3) MAXLRL Is a binary Integer denoting the largest record length 
In words tc e passed via SRREL to the sort routine. 

(4) MAXLEN Is c nary Integer denoting the maximum number of 
words required to hold all sort fields (normally 1 or 2). 










TABL3-2 






(5) ITABL Is 


an array containing the control information for the 






sort. Its contents are set by a data statement and necessarv 






changes are made by calling FSORT or FS0RT2. Each sort field 






is define 


d by six entries in the array and an Integer value of 






99999 signals an end to the sort fields. All values are binary 






integer and denote the following attributes of the sort: 






Entry 1: 


Word " or sore iv.«y \ *■ 






Entry 2: 


n-t f rkrtc4r4nn nf Qnrf ItPV TLeft tO Risht. "1) 






Entry 3: 


yxP 4ri cr»t■^ Irov ^='^fi»fllll word) 

Number or d i ts in sort ^ey v*'ju lv^xx wKJi,\*f 






Entry 4: 


iype or sore* v.u5>u<ixi-y v' 








\fi ^ axpnanumeric 








1 » binary 1108 format 








2 * signed decimal 






Entry 5: 


Order of sort 








0 » ascending 








1 » descending 






Entry 6: 


Significance number 








1 =« Major sort field 








2 = Minor sort field 






b* Outputs 








(1) Area in 


core and mass storage ire reserved for the sort. 






(2) Return address from SSORT is established. 






(3) Tl e entry points in LINK may be called. 




SPKCIAL 


MOTES 






1. 


This is a highly 


specialized subroutine serving to allocate space for 






the sort package 


This routine will undoubtedly be replaced or deleted 






at any non-UNIVAC installation. 
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TMTCSC-1 



SUBKOiniNE IDENTIFICATION 

^Wuae IMTC^Sc <TJ^^nsmit Array) 

Language FORTR/*N V 

Date May 7 3 

Progranuner CSC/We issmul ler 
FUNCTION 

TMTCSC causes a specified number of words from one array to be copied into 

a second amy, 
KNTllY POINTS 

1. I'MTCSC 
CALLING SEQUENCE 

1. CALL TMTCSC (NIVORDS , ITO, IFROM) 

a. Inputs 

(1) NV/ORDS is the number of words, starting with the first word in 
each array, to be transmitted. 

(2) ITO the receiving array. 
(Z) IFROM is the sending array. 

b. Outputs 

(1) The first NWORDS words of ITO are made identical with the 
first NWORDS words of IFROM. 

SPECIAL NOTES 

1. This subroutine is an elementary FORTRAN DO loop which replaces an IBM 
7040 Assembly Language subroutine widely used in CODAP. 

2. By using a subscript other than (implied) 1 in the ITO or IFROM argument 
of the subroutine call, any block of words may receive, or be sent as, 
the NWORDS words of data. In particular, different sections of the same 

ERLC ±V7 



TMTCSC-2 



ITO array may used to recetv. different --ypes of information. For 
example. In CODAP this subroutine is used to gather several different 
arrays and, in a series of calls, place them into a single array. 



ERIC 
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TREAD- 1 



SUBROinriNE IDENTIFICATION 



Name 



TREAD (Tape Read of FORTRAN Print) 



Language 



1100 Assembler 



Date 



Oct 73 



Programmer Weissmuller 
FUNCTION 

TREAD will read a FORTRAN written print file from a tape. This subroutine 
is used primarily for reading, copying, or printing the report file. See 
DREAD for a similar function on mass storage files, 
ENTRY POINTS 

1. TREAD 

2. REWIND 

CALLING SEQUENCES ^ 

1. CALL TREAD (NWORDS.LINE, JSEQ,$NEl^,$EOF) 



a. Inputs 

(1) NWORDS is for output only. 

(2) LINE is a 22 word array for output only. 

(3) JSEQ is for output only. 

(4) NEW is the FORTRAN statement number to lump to if a new 
report sentinel is read. 

(5) EOF is the FORTRAN statement number to lump to if an end of 



b* Outputs 

(1) NWORDS is a binary integer which is the number of words in 



file is encountered iu an attempt to read the next line. 



the print image array LINE. 
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(2) LINE contains the next print line read. It has a maximum 
length of 22 words and may be printed thusly: 

WRITE(6.100) (LINE(I),I«1,NW0RDS) 
100 FORMAT (22A6) 

(3) JSEO is a binary integer which is set equal to the index 
number of the current Report being read. This value is set 
only when the $NEW return is used. 

2. CALL REWIND 

a« Inputs - None 
• Outputs 

(1) The print image file read by TREAD is rewound. 
SPECIAL NOTES 

1. This is a very machine dependent subroutine and should either be 
replaced or eliminated. The primary function of this subroutine is 
to read print images from tape and in particular, print images in 
Report File Format. (Report File Format simply means that individual 
reports are preceded by a sentinel of the form 'BEGIN REPORT', N where 
N is a binary integer written out in 1A6 format.] 

2. Both TREAD and DREAD assume FORTRAN UNIT 28 is the print image file. 
This at-sociation must be established prior to calling either subroutine. 



is: 
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ZERBLK-1 



SUBROUTINE IDENTIFICATION 



Name 



ZERBLK (Change Zeroes to Blanks) 



Languag e 



FORTRAN V 



Date 



Mar 74 



Progrananer 



Ueissimiller 



FUNCTI(»I 



ZERBLK changes certain leading FIELDATA zeroes on INPSTD Task/Duty Title 

Cards to blanks. 
ENTRY POINTS 

1. ZERBLK 
CALLING SEQUENCE 

1. CALL ZERBLK riD.IDUT) 

a. Inputs 

(1) ID is an Il-word array containing a Task/Duty Title Card image. 

(2) IDUT is for output only. 

b. Outputs 

(1) IDUT returns the duty character, and 

(2) Any leading zeroes in the task nuinber are changed to blanks, OR 

(3) If the task number field contains invalid characters the program 
aborts after a diagnostic. 

SPECIAL NOTES 

1. The subroutine is specially written for use by INPSTD. 

2. ZERBLK employs subroutines BCDBIN and ERTRAN, and the FORTRAN ENCOP^, 



DECODE, and "R" format specification. 
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ZERO-1 



SUBROUTINE IDENTIFICATICW 



Name 



ZERO (Store Floating Point Zeroes Into Array) 



Language 



FORTRAN V 



Date 



May 73 



Vrograiaper 



CSC/We Issmuller 



FUNCTICW 



ZERO fills a specified number of words In an array with floating point 



ENTRY POINTS 

1. ZERO 
CALLING SEQUENCE 

1. CALL ZERO (ARRAY,NWORDS) 
a. Inputs 

(1) ARRAY Is an array for floating point values. 
(?) NWORDS is the nuirber of words, starting with the first word 
in the array to be zero filled, 
b • Outputs 

(1) The first NWORDS words of ARRAY are set equal to zero. 
SPECIAL NOTES 

1. This subroutine is an elementary FORTRAN DO loop which replaces an 
IBM 7040 Assembly Language subroutine. 



By using a subscript other than (implied) 1 in the ARRAY argument of 
the subroutine call, any block of words mav b^ set to zero. 



zeroes. 
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ZERO I- 1 



SrBROlTIN'F TDFNTI^ICATION 



N'ame 



ZEROI (Store Integer TJeroes into Array) 



Language 



FORTRAN V 



Date 



Mav 73 



Programmer CSC/We issmuller 
FUNCTION 

ZEROI fills a specified number of words in an array with integer zeroes. 
ENTRY POINTS 

1* ZEROI 
C/tI.LING SEQUENCE 

!• CALL ZEROI (IRRAY.NV^ORDS) 
a. Inputs 

(1) IRPAY is an array for integer values. 

(2) NWORDS is the nua^er o: words, starting with the first word 



b. Outputs 

(1) The first NWORDS words of IRRAY are set equal to zero. 
SPECIAL NOTES 

1, This subroutine is an elementary FORTR^\N DO loop which replaces an 
IBM 7040 Assembly Language subroutine. 

2. By using a subscript other than (implied) 1 5n the IRRAY argument 
of the subroutine call, any block of words may be set to zero. 



in the array to be zero filled. 
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